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I-     HISTORY    AND    INTRODUCTION 

There  are  two  ratcn  processor  air  defense  simulation 
programs  implemented  at  Naval  Postgraduate  School.  These 
programs  take  a  user-defined  aircraft  flight  path,  compare 
it  to  various  defensive  positions  and  return  the  probability 
of  having  killed  the  aircraft-  The  first  program  is  the  Air 
Force  Armament  Laboratory'  s  Anti- Aircraft  Artillery  (AAA) 
Simulation-  Its  shorthand  name  is  POOL  The  second  program 
is  the  Air  Force  ASD  surface-to-air  missle  (SAM)  engagement 
simulation.  Its  shorthand  name  is  AICE  II.  The  programs 
satisfy  HII-STD-2069  and  are  used  in  industry  as  a  design 
aid. 

A  drawback  to  these  programs  is  the  fact  that  the  amount 
of  input  data  submitted  to  the  programs  is  large  and  the 
format  requirements  are  rigid.  The  process  of  direct  submis- 
sion of  data  to  the  programs,  is  therefore  time  consuming 
and  tedious-  Humans  are  inefficient  at  performing  time 
consuming,    tedius   tasks   and    errors   are  a   result. 

A  first  step  improvement  in  the  method  of  inputting  data 
to  P001  cccured  in  1978.  A  pre-processing  program  named  P001 
Input  Processor,  or  PIP  for  short,  was  created-  Like  the 
processors,  PIP  was  a  batch  program.  However,  input 
requirements  were  reduced  to  just  spatial  coordinates  of 
flightpath  milestones,  an  initial  speed,  and  control  indica- 
tors   for   the  type   of    output    desired. 

PIP  had  its  shortcomings,  too.  Because  of  the  batch 
implementation,  the  entire  flightpath  of  milestones  had  to 
be  submitted  as  a  unit-  The  user  learned  of  violations  of 
aircraft  structural/performance  limitations  and  mission 
rules  by  experiencing  failed  runs.  Corrections  consisted  of 
repeated   tinkering      with   the      milestones   until      a    successful 


run  emerged.  A  further  drawback  to  PI?  is  the  requirement 
for  the  user  to  plot  the  desired  route,  pick  off  numeric 
data    and   then   get   the   numeric    data   into    FORTRAN    format. 

The  next  generation  improvement  was  introduced  at:  Liavai 
Postgraduate  School  in  1932  by  It.  Eric  R.  Johns. 
Recognizing  the  inherent  limitations  of  a  batch  processor, 
Johns  converted  PIP  into  an  interactive  program  suitable  for 
use  on  time  shared  computer  systems.  In  so  doing,  he  real- 
ized   the   following    benefits: 

1.  The  user  could  be  notified  "immediately"  of  a  milestone 
entry  that  violated  predefined  aircraft  structural  or 
performance    limitations. 

2.  The  user  could  te  given  the  opportunity  of  making  a 
correction    before   proceeding. 

3.  An  interactive  graphics  capability  could  be  introduced 
which  eliminated  the  necessity  of  manually  converting 
and  coding    data    from   a    map   into    the   computer. 

As  a  secondary  effort,  transportability  through  modular 
programming  was  introduced  to  permit  easy  dissemination  of 
the  pre-processor  to  interested  government  agencies  and 
industries.  The  version  in  use  on  tne  Naval  Postgraduate 
School   ISM    3033    computer   is    named   IBMPIP. 

While  acknowledging  the  importance  of  13 MP IP  as  a  great 
evolutionary  step  forward  in  the  convenient  use  of  P00  1  and 
MICE,  it  guickly  became  apparent  that  still  more  improve- 
ments could  be  realized,  which  would  increase  the  conven- 
ience of  the  data  generating  aspect,  improve  the  accuracy  of 
the  results  from  P 00 1  and  MICE  and  broaden  the  capabilities 
of  the  IBMPIP-P00 1/MICE  combination  in  two  areas:  design 
decision  making  and  tactics.  The  purpose  of  this  thesis  is 
to    make   some  of    those  improvements. 


Father  than  rename  IBMPIP,  this  thesis  proposes  an 
improved  version  of  IBMPIP  by  installation  of  specific 
modules  which  are  to  fce  discussed.  Pnysicaily,  the  intro- 
duction cf  the  new  modules  required  extensive  changes  to  z~^ 
existing   modules. 

Eefore  developing  the  discussion  for  the  proposed 
modules,  it  will  fce  instructive  to  examine  the  use  of 
I3MPIP-P0Q1/MICE  at  Naval  Postgraduate  School.  This  acts  as 
a  first  step  toward  developing  an  overall  pailosophy  within 
which    future  modifications    will   fit    in  a    logical    sequence. 

IBMPIP-POO 1/MICE  is  incorporated  in  a  course  titled 
Aircraft  Combat  Survivacility  (AE  3251)  and  is  used  as  a 
teaching  aid  in  developing  an  understanding  of  the  factors 
affecting  aircraft  survivability  in  a  hostile  AAA  and  3AM 
environment.  In  a  game  environment,  student  teams  "fly"  a 
bombing  mission  against  a  target  defended  by  seven  AAA  and 
one  SAM  locations.  There  are  game  restrictions  on  the  loca- 
tion of  seme  of  the  defensive  positions.  There  are  also  game 
restrictions  on  the  performance  of  the  pseudo-aircraft.  Each 
team  is  responsible  for  generating  one  defensive  and  one 
offensive  data  file.  When  each  team  is  satisfied  with  their 
parameters,  the  data  files  are  exchanged  in  sucn  a  manner 
that  each  team's  flight  path  is  compared  to  the  other  team's 
defense.  Implicit  in  this  method  is  the  understanding  that 
each  team  has  no  knowledge  of  what  the  incoming  data  files 
will  look  like.  The  comparisons,  then,  approach  arbitrari- 
ness. P001  and  MICE  act  as  the  judge,  in  that  the  team  with 
the  lowest  probability  of  kill  for  their  flightpath  is  named 
winner. 

To  ensure  comparability  of  scores,  the  performance  of 
the  aircraft  is  fixed  for  the  game,  although  I3MPIP  pres- 
ently has  the  capability  of  permitting  performance  and 
flight  profile  changes  OF  THE  ONE  aircraft  described  in  it. 
This    is    an    important    point    to    note. 
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What  is  left  as  variables  at  the  disposal  of 
then,  are  defensive  positioning  and  tne  specific  fliyhtpath 
of  the  aircraft.  This  leads  the  students  directly  tc  the 
concept  ex  tactics  as  a  method  of  lowering  probability  of 
kill  (Increasing  chances  of  survival) .  This  is  good.  What 
would  be  better  would  be  for  the  student  to  reach  the 
conclusion  that  reduction  of  vulnerability  and  suscepti- 
bility flaws  in  the  aircraft  will  lead  to  a  probability  of 
survival  exceeding  that  which  can  be  accomplished  by  tactics 
alone.  There  are  several  modifications  to  IBMPIP  that  would 
accomplish    this    goal. 

As  stated  earlier,  P001  and  MICE  are  used  by  industry  to 
make  design  decisions.  This  fact  leads  to  the  demand  that 
the  data  on  the  position  of  the  aircraft  be  at  least  as 
accurate  as  the  detect  and  track  capability  of  the  defensive 
devices  programmed  into  POO  1  and  MICE.  Such  is  not  presently 
the  case.  The  original  version  of  IBflPIP  uses  an  assumed 
quadratic  flight  path  between  the  current  milestone  and  the 
two  previous  milestcnes.  The  aircraft  accelerations  are 
computed  at  the  center  of  these  three  milestones  based  on 
the  velocity  between  the  third  and  center  milestones  and  the 
velocity  between  the  center  and  current  milestones.  If  the 
accelerations  at  the  center  milestone  are  acceptable,  the 
current  milestone  is  accepted.  P001  and  nice  assume  a 
straight  line  between  these  milestones.  Because  the  user  is 
free  to  define  milestones  thousands  of  meters  apart  there 
can  be  a  significant  lateral  error  in  the  computed  aircraft 
position   at   the    mid-points    between    the    milestones. 

A  last  area  to  be  discussed  is  the  output  from  P00  1  and 
MICE.  At  present,  it  is  difficult  to  obtain  rapid  correla- 
tion between  the  "aircraft"  and  where  it  is  being  subjected 
to  attack.  The  output  from  both  P001  and  MICE  are  in  the 
form  of  long  tables  of  time-space-attitude  information  of 
the        aircraft,       probability      of      *iiis      for    each      defensive 
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device  and  the  cumulative  probability  of  kill  based  on  the 
sua  of  ail  of  the  defense.  The  user  must  then  graph  by  hand 
the  location  of  the  "aircraft"  at  the  time  it  is  threatened 
or  being  damaged,  to  draw  any  conclusions  on  its  suscepti- 
bility and  to  a  lessor  extent,  its  survivability. 

By  way  of  summary  then,  a  statemant  is  made  as  to  what 
would  constiture  an  ideal  IBHPIP-PQ01/.1ICE  implementation  to 
satisfy  all  the  above  mentioned  shortfalls. 
IEM?IP-P001/^ICE  should  be: 

•  interactive  to   permit  feed  back  of   pertinent  operating 
information  to  the  user 

•  user  friendly   to  diminish  the  requirement   for  special- 
ized operating  procedures  and  to  avoid  fatal  errors 

•  approaching  real  time  in  ability   to  compute  and  present 
results 

•  graphics  oriented   to  enhance  the   convenient  generation 
of  input  data  AND  presentation  of  results 

•  accurate  to  the  extent  of  the  systems  being  modelled 

•  flexible  through  incorporation  of   a  selectable  range  of 
different  aircraft  and  defensive  weapons 

•  transportable,   as  accomplished  through  modular  program- 
ming techniques 

In  conclusion,  two  of  the  above  points  are  addressed  by 
this  thesis  and  will  be  discussed.  They  are  incorporation 
of  user  friendliness  and  a  more  representative  flightpath. 
The  most  difficult  task  has  been  the  convenient  generation 
of  an  accurate,  representative  flight  path. 
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A  generally  accepted  meaning  of  "user  friendliness"  is 
to  structure  a  program  in  such  a  fasnion  that  the  user 
cannot  "do"  anything  to  cause  an  unplanned  halt  in  execu- 
tion. The  simplist  version  of  the  above  concept  is  to 
prevent  the  user  from  entering  data  upon  which  the  program 
is  not  structured  to  act.  The  following  example  is  taken 
from    the   original   I3MEIP- 

50  SP.ITE  (6,6  00) 

BEAD  (5,*)     IGUN 
600         FORMATIONS;    0=DISK    FILE,  1  =  TE3MIN AL,  2=PRES2I'  ) 

It  is  clear  that  the  cnly  correct  responses  are  0,  1,  and  2. 
It  is  also  clear  that  any  integer  number  would  satisfy  the 
READ  statement.  To  prevent  unplanned  events  from  taking 
place    in   the  program,    the   following    change    is    made: 

50  WRITE  (6,6  00) 

READ  (5,*)     IGUN 

IF(IGUN.NE.0.AND.IGUN.NE.  1.  AND.  IGUN.  NE.  2) 
♦GOTO     50 
600         FORMAT^     0=DISK    FILE,  1=TERMINAL  ,  2  =  ?RESET' ) 

The  user  is  now  prevented  from  progressing  beyond  this  point 
in  the  program  until  an  acceptable  input  is  made.  The  user 
is  encouraged  to  try  again  by  having  the  prompt  message 
repeat   on   the   screen. 
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If  the  definition  of  user  friendliness  is  broadened  to 
include  "convenience"  to  the  user,  taen  there  are  many 
schezes  which  could  profitably  be  incorporated.  Tor  example, 
in  the  current  version  of  IBMPIP,  once  a  map  has  been 
successfully  created  on  the  graphics  screen,  all  further 
data  is  entered  through  a  graphics  buffer.  The  reason  for 
this  method  is  to  allow  the  user  to  see  a  continuous  trace 
(see  figure  2.1)  of  the  trajectory  that  will  be  submitted  to 
P001/MICE.  However,  if  a  game  parameter  or  an  aircraft  limi- 
tation is  violated,  the  program  suspends  execution  and 
gueries    the   user   for    a   selection    of    one   of    two   options: 

1. Accept    the    data      point,       which    violates   a      parameter   or, 
2. Substitute    a   data   point    which   does   not. 

This  can  turn  into  an  iterative  process  between  the  user  and 
the    program. 

It  is  a  contention  of  this  thesis  that  parameter  viola- 
tions which  do  not  affect  the  overall  outcome  of  the  surviv- 
ability of  the  "aircraft"  should  be  corrected  automatically 
by  the  computer.  At'mcst,  for  these  kind  of  errors,  the  user 
should  see  an  advisory  statement  that  does  not  reguire  a 
response.  The  following  example  is  offered  in  support  (to 
improve  readability,  some  of  the  variables  are  renamed  to 
simpler    mnemonics)  . 

One  of  the  game  parameters  that  must  be  satisfied  is 
that  during  the  enroute  portion  of  the  "flight",  the 
"aircraft"  may  not  descend  below  60  meters  altitude,  as 
denoted  by  the  variable  HTHIN.  Presented,  then,  is  the  orig- 
inal   program   flow   for  a   violation    of    tais    parameter. 
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Figure    2.1        Continuous   Flightpath   Trace   From   Present    I3MPIP 

1  =>gr aphically   input   Z1 

ALT=Z1    (where   Z1    is    the   altitude   in    meters 

--  call    it    50    meters) 
IF{ALT. GE-HTHIN)     proceed 
otherwise 
-ERROR=3 

GOTO  (1,2,3, ...)  ,ERROR 
3  WRITE  (6,6  03) 

603         FORMAT(« ALTITUDE     TOO    LOW1) 
WRITE  (6,6  50) 
READ  (5,*)     ICOR 
650         FORMAT(»DO    YCU    WISH    TO    CORRECT    ERROR, 
*1=YES,2  =  NC) 
IF(ICOR.EQ.I)     30IO     1 
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Positional  parameters  such  as  this  are  easily  violated 
because  the  graphic  setup  constrains  tae  "altimeter"  to  200 
meter  increments  and  it  is  difficult  to  discern  where  50 
meters  falls.  If  the  user  violated  this  parameter,  it  was 
obviously  with  the  intent  to  go  as  low  as  possible  without 
violating  the  parameter.  It  would  seem  reasonable,  then,  to 
modify    the    program    in   the   following    fashion: 

ALT=Z1 

IF(ALT.GE.HTMIN)     proceed 
otherwise 

ALT=H1MIN 
WRITE  (6,  100) 
100         FORMAT  ('USER    VIOLATES    MINIMUM    ALT    RESTRICTION: 
♦COMPUTER    CORRECTS;     EXECUTION    CONTINUES') 

The  following  kind  of  situation  is  particularly  frus- 
trating, as  there  is  no  clue  given  to  tne  user  as  to  what  is 
tne  problem.  The  statement  is  found  in  a  passage  that  is 
reading   in    data    from   a   pre-established    disk   file. 

308         IF(MNUM.E£.1.  AND.LTE.EQ.  33)     STOP 

MNUM..EQ.1  represents  the  first  data  point  entered  into  the 
program.  LTR  is  a  control  variable,  and  code  83  is  that  used 
to  signify  that  "aircraft"  milestone  entry  is  complete. 
Unless  the  user  happens  to  have  access  to  the  program 
listing,  there  is  nothing  to  indicate  that  s/he  is 
attempting  to  read  in  a  flawed  data  sat;  yet  selection  of 
code  83  is  permitted  on  the  first  data  point  entry  when 
setting    up    the    disk    file. 
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The    solution    here   is   to    simply    route    the    program    flew    to 
a   message   informing    the   user   of   the    lifficulty. 

308         IF(MN0a.EQ.1.AND-LlB-2Q.83j     GOTO    100 

100  FORMAT(f INPUT    DATA    IS    FATALLY    FLAWED, 

♦PROGRAM     UNABLE    TO    CONTINUE,     PROGRAM    TERMINATES1) 


In  conclusion,  user  friendliness  using  concepts  as 
stated  atove  are  incorporated  into  the  improved  version  of 
I3MPIP.  It  is  anticipated  that  as  the  scope  of  the  users 
increases,    more    changes    will   become    apparent. 
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in.  sgaM4£I  cf  coa hoh alii y  bstheen  programs 

The   current    and    proposed    methods      of    generating    a    flight 
path    share    a  common    objective: 


Accurately  model  the  trajectory  of  a  flight  of  a  fixed- 
wing  aircraft.  Xake  the  model  realistic  by  subjecting  the 
trajectory  to  the  performance  limitations  of  the  real 
aircraft. 


The    aircraft  performance   limitations    for   both    programs    are: 

1.  acceleration      along         the      longitudinal      axis        of      the 
aircraft 

2.  acceleration      ncrmal      to      the      longitudinal      axis       ("g" 
loading) 

The    forward  acceleration   is    composed    of    components    from: 

1.  engine    thrust 

2.  aerodynamic   drag 

3.  gravity 

The    normal    acceleration    is    composed    of   components    from: 

1.  lift 

2.  drag 

3.  gravity 
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LIFT 


DRAG 


GRAVITY 


THRUST 


Figure   3.1        Elements  Comprising   forward  and   Normal   Acceleration, 

Figure  3.1  illustrates  the  components  making  up  forward  and 
normal  accelerations.  There  are  ten  parameters  of  the 
trajectory  which  mast  be  determined  for  subsequent  use  by 
P00  1    and   MICE.    They    are: 


1. 

2. 
3. 

4. 


spatial  components  (x,y,z) 

velocity   components  (u,v,w) 

attitudinal   components     (heading    angle    ( U)  )  ,    pitch    angle 

(©  )  ,    and    roll    angle    (  (j&  )  ) 

elapsed  time 


The    overall   method    by   which      the    components   are    generated   in 
the    twc    programs  are    the   same: 
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1*  The  ten  components  representing  translation/rotation 
from  one  input  milestone  (x/yfz  ana  velocity)  to  the 
next  are  computed  in  the  earth-fixed  (inertial)  coordi- 
nate system. 

2.  The  accelerations  resulting  from  the  displacement  in 
the  earth-fixed  coordinate  systems  are  transformed  into 
the   aircraft-fixed    (rotational)    coordinate   system. 

3.  The   thrust    and    g-ioad    on    the   aircraft    are  computed. 

4.  If  the  thrust  and  g-loading  fall  within  predefined 
limits,  the  13  components  are  accepted,  written  to  file 
and  the  program  re-initialized  to  accept  the  user's 
next    milestone. 

One  difference  between  the  current  and  the  proposed 
program  occurs  in  the  treatment  of  the  conditions  of  over- 
thrust  and  over-g-load.  The  current  program  halts  the  execu- 
tion and  requests  a  user  fix  to  the  milestone.  The  proposed 
program  adjusts  the  parameters  internally  until  thrust  and 
g-limitations   are   met. 
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IV.  SUMMARY  OF  COB 32 NT  IBM?I£ 

The  current  method  is  described  below-  Three  aiiestoEes 
are  used  to  compute  average  values  of  heading,  climt  and 
velocity  components  of  the  middle  milestone.  The  flight 
path  is  always  expressed  as  a  straight  line  between  two 
points.  With  this  system,  the  invariabies  are  the  spatial 
coordinates  of   the  zilestones  and   the  "aircraft"   speed  at 


MSZ(x,Y,Z,v) 


MS3(X,Y,Z,V) 


MSli(x,Y,2,V) 


Figure  4.  1    Invarients  of  the  Current  Trajectory. 

the  waypoints.   As  the  trace  in  figure  4.1  is  generated,  two 
tasks  are  accomplished: 
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1.  The  user  gets  a  "feel"  for  wnere  the  aircraft  is  going 
on    the   map, 

2.  Data  is  computed  on  the  ten  aircraft  parameters f  vhica 
at  the  completion  of  a  run  of  IBJ1PIP,  will  je  submitted 
to    the   hatch    programs    PO0 1    and/or    MICE. 

The    data   required  by   P001      and   MICZ   are   presented    pictoraiiy 
in   the    following  figures. 


As 


dY 


Figure  4.2    Spatial  Components. 
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Figure    4.3        Telocity   Components 


PITCH    AN6LE 


ROLL  ANGLE 


HEADING  ANGLE 


Figure    4-4        Angular   Displacements, 
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The  method  used  to  generate  the  above  data  will  new  be 
presented  in  the  following  figures.  To  make  viewing  conven- 
ient, aii  diagrams  will  occupy  the  X-Y  plane  with  the  under- 
standing that  the  discussion  applies  to  the 
three-diiensional  case. 


(xi.yi) 


oxi 


(XE.YZ) 


DXZ 


DY^ 


(*3,Y3) 


Figure  4.5   Computation  of  Spatial  Components, 


DX1  = (X2-X1) 
Di1=(Y2-Y1) 
DZ1  = (Z2-Z1) 


DX2=(X  3-X2) 
DY2=(Y3-Y2) 

DZ2={Z3-Z2) 


DIST1=SQRT (DX1**2+DY1**2+DZ1**2) 
CIST2=SQET (DX2**2+DY2**2  +  DZ2**2) 
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CV1.TI) 


(V2.T2} 


(V3.T3) 


Figure   4.6        Computation    of   Average   Velocity    (Speed) 


VAVG1=  (V2-71)  /2 
VAVG2=  (V3-V2)  /2 

The    elapsed  time   for    the   leg      and   total    to    the   milestone    are 
computed   as   follows: 

DT1=DIST1/VA7G1 
DT2=DI£T2/VAVG2 

T2=11+DT1 

T3=12+DT2 
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OXE 


OY£ 


oxi 


Figure   4.7        Computation    of    Average    Velocity  Components. 


VX1  =  VAVG1*  (DX1/DIST1) 
VY1=VAVG1*  (DY1/BIST1) 
VZ1=VAVG1*  (DZ1/DIST1) 


VX2=VAVG2* (DX2/DIST2) 
VY2=VAVG2* (DY2/DIST2) 

VZ2=VAVG2*  (DZ2/BIST2) 
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Figure   4.8        Computation   of    Average   Acceleration  Components. 


DELTAT=(I3-T1)/2 

AX1=(VX2-VX1)  /DELTAT 
AY1=(VY2-VY1)  /DELTAT 
AZ1=(VZ2-VZ1)  /DELTAT 

When   at  milestone   two,       the   aircraft   is   presumed    to   have 

an   attitude  which   is    an   average   of    the    attitude    at    milestone 

one     (MS1)  and    the    attitude      at    milestone    two       (MS2) .      Unit 

vectors    are  generated      at   MS2    using    the      following    weighting 
scheme. 
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Figure   4.9        Components   Required   for   Average   Heading   Vector, 

HDGAVG  =  DIST2/(DIST1+DIST2) 

TDX=(  (VX2/VAVG2)-(VX1/VAVG1)  ) *HDGAVG+  VX 1/VA VG 1 
TDY=(  (VY2/VAVG2)-(VY1/VAVG1) ) *HDGA VG  + VY1/VA VG 1 
TDZ=(  (VZ2/VAVG2)-(VZ1/VAVG1)  )  *HDGAVG+ VZ1/VAVG1 

The    vectors   are    converted   to   direction   cosines: 

DNIT=SQRT (TDX**2+TDY**2+TDZ**2) 

TEX=TDX/UNIT 
TDY=TDY/UNIT 
TEZ=TDZ/UNIT 
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Rotational    angles  can  now   be   defined; 

HDG=ATAN(TDVTDX) 

CA=ATAN(TDZ/SQRT  (TDX** 2+TDY**2) ) 

Computation  of  the  roll  angle  is  temporarily  defarrsd* 
The  accelerations  in  the  earth-fixed  coordinate  system  must 
be  transformed  to  the  rotational  coordinate  system  {see 
figure   4.10)    below. 


Figure   4.10         Transformation   of   Acceleration  Components. 

The    coordinate    transformations   are    given    without    development 
[Ref.    1] 
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TMD  = 


EH  = 


P?  = 


COS(HDG)*COS  (CA) 
SIN(HDG)  *COS(CA)   } 
SIN(CA) 


r 


AX1 
A 11 

az  1  +g; 


T 


COS  (HDG)  *SIN(CA) 

SIN  (HDG)  *SIN(CA) 

COS(C  A) 


TMD=  acceleration  along  the  aircraft's  longitu- 
dinal   axis 

?H=  acceleration  in  the  direction  of  the 
aircraft's   rignt    wing 

PP=  acceleration  in  the  direction  of  the  top  of 
the    aircraft 

GEE=acceleration  due  to  the  earth's  gravity  (9.82 
m/s2) 

The  roll  an^le  of  tie  aircraft  with  respect  to  the  earth- 
fixed   cocrdinate   system   is    written: 

RA=-ATAN(PH/PP) 

The  total  aircraft  lift  is  the  vector  sum  of  the  accelera- 
tions normal  to  forward  translation  and  is  normal  to  the 
roll    angle: 

ACLIFT=SQRT  (?H**2  +  P?**  2) 


30 


Both    the      forward   translation   acceleration      and   the      lift    or 
normal   acceleration      are  non-dimensionalized   by      the    gravity 

term  : 

i:iD1=TWGEE 
ACLIFT1=ACLIFT/GIE 

The    above      is  based      upon   the      concept   of      force    divided      by 
weight: 

THROST/WEIGHT    =    m (THD)  /mg    =    TMD/GEE    =    TMD1 

Now  aerodynamic  drag  on  the  airframe  must  be  accounted 
for.  Drag  is  computed  using  conventional  aerodynamic  equa- 
tions. Computation  cf  air  density  as  a  function  of  alti- 
tude: 

RHC=.256*EXP(-.  1Q3*Z2/1Q00) 

Z2=  absolute   altitude   of    milestone    2   in    meters 

This        equation         is        in  the        non-standard         dimensions 

(lbf-sec2/f t2-meter2)    and   is    therefore   unacceptable.    It    will 
be   supplanted   in   the    following   chapter. 

Computation   of    the    coefficient    of   lift 

CL=2*ACLIFT/(RHC*V2**2/WL) 

WL=   wing    loading    in    lbf/ft2 

Computation   of    drag     (non-dimensional)  : 
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DW=  ((CD0«-CDK*CL**2/CL)  *AC1IFT 

CDO=    coefficient    of    drag    at    zero   angle    ox    attack 
CDK*CL**2=    drag   due    to    lift 

Net   longitudinal  acceleration   factor: 

TW=1MD+DW 

Speed      brakes   are      accounted   for      by   adding      a   surface      area 
factor   to   the   drag    equation: 

Dtf  (S.fa.)=  (  (0.  05+CDG+CDK*CL**2)  /CL)  *ACLIFT 
0.05=    5%    of   the   wing    surface   area 

The   limiting  parameters   are    tnen: 

1.  TW 

2.  ACLIFT 


J^ 


7»    ISI30D OCTICN    OF    TH2    ? 50 POSED    HETHOD 

A-       OVERVIEW 

The   proposed   trajectory    modules      were   written    to    satisfy 
the    following   goals: 

1.  Retain  user  friendliness  features.  This  is  defined  in 
the  following  fashion:  once  a  user  enters  a  waypoint 
(we  are  here  renaming  milestones)  through  the  graphics, 
the  computer  should  fit  a  flight  path  to  that  waypoint 
without  any  further  action  on  the  part  of  the  user. 
Interpret  this  to  mean  the  user  cannot  enter  a  fatal 
waypoint. 

2.  The  trajectory  should  closely  match  an  actual 
aircraft* s  in  spatial  coordinates,  linear  velocities, 
and  attituainal  rotations  from  the  inertial  coordinate 
system. 

Observe    figure    5.1    for   a  comparison    between    the    two    systems. 
Under      the    proposed      system   the      following   gross      events 
take    place: 

1.  The  aircraft  is  defined  at  a  beginning  waypoint  which 
is   named   "old". 

2.  The  user   enters   a  next-waypoint,    defined   as    "new". 

3.  Linear  acceleration  components  are  computed  from  "old" 
to    "new". 

4.  Using  the  accelerations  and  an  invarient  increment  of 
time,  the  aircraft  is  moved  from  "old"  to  a  new  point 
defined  as    "temp". 
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VYZ, 


VNEW 


UNEW 


UOLD 


Figure  5.1    Comparison  of  Schemes. 

5.  Knowing  the  displacement  vectors  that  got  us  to  "temp", 
velocity  components  at  "temp"  are  computed. 

6.  Knowing  the  displacement  vectors  that  got  us  to  "temp", 
angular  displacements  are  computed 

7.  Knowing  the  time  increment,    rotational  velocities  are 
computed. 

8.  The  linear   AND  rotational  accelerations  at   "temp"  are 
transformaed  into  aircraft-fixed  coor dinartes. 

9.  The   transformed  accelerations   are  fed   into  the   left 
hand  side  (LHS)  of  the  Aircraft  Equations  of  Motion. 
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10.  If  thrust  and  g-Ioad  limitaitons 
"temp"  becomes  an  accepted  point,  the  parameters  ars 
written  to  file,  the  ;oap  is  updated  by  one  time  incre- 
ment   and    "temp"  becomes    new    "old". 

11.  The   process  is    repeated    until    "old"    becomes    "new". 

12.  The   usee    is  queried   for    the   next    waypoint. 
The    new   features    are: 

1.  Ihe  computer  flight  patn  is  now  a  discretized  version 
of  an  actual  flightpath  and  hence  is  more  realistic 
model. 

2.  Rotational  accelerations  are  accounted  for.  They  are 
not  accounted  for  in  the  present  program.  Thus,  the 
present  aircraft  performance  is  artificially  better 
than  the  performance  of  the  real  aircraft  being 
modeled.    Survivability    data    is    too    optimistic. 

Imposed  on  the  above  events  is  an  iteration  that  does  two 
things: 

1.  If  accelerations  resulting  from  the  user  input  lead  to 
"aircraft"  thrust  and  g-loadings  less  than  the  maximum 
defined,  the  accelerations  are  increased  until  thrust 
or    g-loading   hits    maximum    (whichever    occurs    first). 

2.  If  thrust  or  g-lcading  are  too  great,  either  the  user 
input  velocity  is  adjusted  downward  or  the  "new" 
waypoint  is  moved  in  a  straignt  line  away  from  the 
"old"  waypoint,  until  thrust  AND  g-load  fall  within 
limitations. 

Number  one  was  included  under  the  philosopny  that  a  pilot 
flying  an  aircraft  which  is  being  shot  at  will  not  be  flying 
at  less  than  the  iraximun  available.  A  drawback  to  the 
current    system    is   the   user    has      no   way    of    Knowing     (except    by 
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exceeding  limitations)  whether  the  aircraft  is  at  maximum 
performance  or  not.  Number  two  was  included  in  keeping  with 
the  desire  to  model  the  real  aircraft  as  closely  as 
possible.  The  hierarchy  is  based  upon  informal  interviews 
with      attack  pilots    attending    NPS. 

The  rest  of  the  Chapter  contains  a  detailed  examination 
of  the  subroutines  and  an  explanation  of  tne  variables 
related  to  flightpath  generation.  Ail  equations  in  the  exam- 
inations are  either  dimensionless  or  in  51  units.  The 
subseguent  Chapter  reviews  the  remaining  subroutines  of 
IBMPIP.  The  final  Chapter  summarizes  the  current  status  of 
the   proposed  IBMPIP. 

B.       BIGCA1    LE7EL    SOBECOTINES 

1.     BIGCAI 

a.  expanded   name:    Big    Call 

b.  function;  Big  Call  acts  as  a  driver  for  the  rest  of 
the  subroutines  involved  with  flight  trajectory 
generation. 

c.  equations/calls: 

10        CALI  TENFRM 

CALI  NEWOLD 

CALI  HVELOS 

CALI  MVDOTS 

CALL  DELVEC 

CALL  TMPPNI 

CALL  TUPVEL 

CALL  INBTHM 

CAII  VECTOB 

CALL  ANGLES 

CALL  ROTEAT 

CALI  ACTUM  1 

CALL  ACTRM2 
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CALL   ACTRM3 
CALL    ACKVEL 

p  JT  T      -\  s~  %  r- r* 
w  aXt  i.     a  «~  - ..  -  ■- 

CAL1  aclhts 
CALL    XCHNGE 
CALL    WAYPNT 
CALI    FILE 
CALI    GRAFIX 

d.  comients:  The  two  advantages  in  this  approach  are 
the  ability  to  treat  all  the  flight  trajectory 
subroutines  as  a  single  package  and  having  this 
package  accessed  by  a  single  call  from  the  main 
program  of  IEHPIP. 
2.     TRNFRM 

a-    expanded   name:    Transform 

b.  function:  Transform  takes  the  user  defined  values 
which  are  acquired  from  the  graphics  buffer  and 
loads  them  into  variables  peculiar  to  the  aircraft 
trajectory    package. 

c.  equations/calls: 

XNE«  =  X1 
ZNEW=  Y1 
ZNEU  =  Z1 

VELCN=V1 


d-  comments:  The  above  is  done  to  permit  "in-house" 
manipulation  of  the  waypoint  values  without 
affecting  the  non-BIGCAL  subroutines  found  elsewhere 
in  IBM PI  P.  Note  that  in  effect,  this  is  the  defini- 
tion of  waypcint  "new"  for  the  trajectory  package. 
3.     NE3CLD 
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a.    expanded   name:    from    Old   to   New 

r.    function;      Tie   generation    of      shorter    varian 

for    the    convenience    of    the   programmer . 
c.    eguations/calls: 

AG1=XN2W-X0LD 
AH1=YNEW-I0LD 

All =ZNEW-ZOLD 

AJ1  =SQET  ( AG  1**2  + AH  1**2  +  AI 1**2) 

AJ2=SQKT(AG1**2+AH1**2) 


^  =:     :i<a.iu=:ij 


Figure    5-2         Establishment   of    Move   Vectors, 
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d.  comments:  See  figure  5.2.  Note  that  AJ2  is  the 
shadow    ox    AJ1   on  the   x-y    plane. 

4.  MVEIOS 

a.  expanded   name:    Sap    Coordinate    Telocity  Components 

b.  function:  Generates  orthogonal  velocity  components 
for   the    user    supplied    speed    at    waypoint    "nev". 

c.  equations/calls: 

IF(S.GT.O)      GCTO     10 

UNEW=VELON*  (AG1/AJ1) 

VNSfI=VELON*  (AH1/AJ1) 

WNEW=VELON*  (AI1/AJ1) 
10  CONTINUE 

N=1 

d.  comments:  The  components  are  based  upon  the  direc- 
tion cosines  from  "old"  to  "new".  As  the  "aircraft" 
moves  from  "old"  to  "new"  in  the  subsequent 
programs,  the  direction  cosines  can  change,  some- 
times drastically.  Those  changes  are  taking  place 
along  a  temporary  path  which  is  "fuzzy"  at  first.  It 
is  fatal  to  the  program  for  this  "fuzziness"  to  be 
allowed  to  influence  the  endpoint  velocity  compo- 
nents (located  at  "new").  Therefore,  the  computation 
of  the  velocity  components  is  restricted  to  one 
iteration  between  any  given  "old"  and  "new".  There 
are  some  well  defined  exceptions  will  be  discussed 
downstream. 

5.  MVDCTS 

a.  expanded  name:  Map  Coordinate  Velocity-Dot 
Componen  ts 

b.  function:  Establish  the  linear  accelerations  between 
waypoint    "old"   and    "new". 

c.  equations/calls: 
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ACC=(VEL0N**2-VSL00**2)/(2*AJ1) 
OD01=ACC*(AG1/AJ1) 
VDOI-kCC* (AH1/AJ1) 
»D01=!ACC*  (AI1/AJ1) 

d.  conents:  Again  the  components  are  based  upon  the 
direction  cosines.  The  derivation  of  the  equation 

ACC=(VEICN**2-VELOO**2)  /  (2*AJ1) 

is    given   in    appendix    3. 
6.     DEIVEC 

a.  expanded   name:    Delta   Vectors 

b.  function:  Ccmpute  the  components  of  a  ds  vector  in 
preparation  cf  a  move  of  the  "aircraft"  from  "old" 
to  a  location  "temp".  "Temp"  is  a  point  along  a 
curvilinear  trace  with  the  defined  endpoints  "old" 
and  "new".  Establishment  of  the  points  "temp"  define 
the   curvilinear    trace. 

c.  equations/calls: 

DELX=0OLD*DELIEE  +  .  5*'JD0T*DE1TE2**2 
DELY=VOLD*DELTEE+.  5* VDOT* DSLTEE** 2 
DSLZ=KOLD*  DE1TEE  +  .  5* WD0T*DELTSE**2 
IF  (AES  (DELX)  .  GT.  A3S  (AG1 )  )  DELX=AG1 
IF  (AES  (DELY)  .  GT.  A3S  (AH  1 )  )  DELY=AH1 
IF  (AES  (DELZ)  .  GT.  ASS  ( A1 1 )  )     DELZ=AI1 

d.  ccmments:    The  equations 

DELX=U0ID*DSLTEE+.5*UD0T*3ELTEE**2 
DELY=VOIE*DEITEE-*-.5*VDOT*DElTEE**2 
DELZ=WOID*DELTEE+.5*WDOT*DELTEE**2 
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are   conventional  dynamic   equations  and      are   derived 

in      appendix    E.  The    term      DEL1EE      is  an      invariant 

increment   of    time  and   is  set    for      the  program*       Ihe 

current      value   is  one    second      and    is      set    in      BLOCK 

DATA,      Thus    for   a  time   increment    of   one   second,       the 


Figure   5-3        Delta   Vectors   to   the   Temporary    Point. 

aircraft  is  moved  forward  from  "old"  toward  "new"  by 
DEL  amounts  in  the  three  orthogonal  directions, 
utilizing  the  velocities  and  accelerations  just 
computed.    See  figure   5.3.    The    logic   statements 

IF  (ABS  (EZLX)  .  Gl.  ABS  (AG1)  )  D El X  =  A G1 
IF  (ABS  (DELI)  .GT.  ABS  (AH1)  )  DELY=AH1 
IF  (ABS  (DELZ)  .GT.  ABS  (AH)  )     DELZ=AI1 
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deal  with  the  situation  where  the  "aircraft"  is 
sufficiently  close  to  "new"  that  the  amount  of 
translation  covered  in  one  second  is  greater  than 
that  needed  to  exactly  arrive  at  "new"  (pre-5.  ...;...; 
overshoot)  . 
7.     TaEENT 

a.  expanded   name:    Temporary    Point 

b.  function:      Define   in   map   coordinates    the    location   of 
the   point   "temp". 

c.  equations/calls: 


XTE  MYXOID  +DELX 

YTEMP=YOLD+DELY 

ZTEMP=ZOLD+DELZ 

IF  (DELX.EQ.AG1)  XTE>1P=XN2W 

IF (DE1Y.2Q.AH1)  YIEiSP=YNEW 

IF  (DELZ.EQ.AI1)  ZTE>!P  =  ZNEW 


d.    comments:    The   first    three    equations 

XTEMP=XCID+DELX 
YT2MP=YCID+DELY 
ZT2MP=ZCLD+DELZ 

are   self-explanatory.    The   group    of   logic    statements 

IF  (DELX.ZQ. AG1)  XTEMP=XNE3 
IF  (DELY.EQ. AH1 )  YIEMP=YNEH 
IF  (DELZ.EQ.AI1 )     ZTEMP=ZNEW 

are   in      keeping   with   the      need    for    exact      arrival   at 
"new". 
8.     TMPVEL 

a.    expanded   name:    Temporary    Point    Velocity   Components 
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b.  function:    Generate    velocity    components   for    the    point 

M+-   q  rn^n 

c.  equation s/c a lis: 

'JTEMF=UOLD+UDOT*DELTEZ 

7TSMP=V0LD*VD0T*DELTSE 

HTEMP=WOLD+WDOT*DELTEE 

IF  (DELX.EQ.AG1)     OTEMP=UNEW 

IP (DEIY.EQ.AH1)     VTEMP=VNEW 

IF  (DELZ.EQ. AI1)      KIEMP=WNEW 

VELOT=SQRT  (DTEtfP**2+  VTEHP**2+WTEMP**2) 

d.  comments:    The  below    equations 

UTEJ1P  =  UCLD+UD0T*DELTEE 
VTEM?=VCID+VDOI*DELTES 
«TEMP=WCID+WDOT*DELTEE 
7EL0T=5GRT (0TEaP**2+VTEMP**2+WTEMP**2) 

are   conventional      dynamic   equations   and      are    derived 
in    appendix    E.    The    three    logic   statements 

IF (DELX.EQ.AG1 )  OTEMP=UNEW 
IF  (DELY.EQ.AH1  )  VTEMP=VNEW 
IF (DELZ.EQ. AI1 )     WTEHP=KNEH 

again    deal    with    the    exact   arrival    at    "new". 
9.     INE1SM 

a.  expanded   name:    Initial   Rotational    Transformation 

b.  function:  Convert  velocities  and  accelerations  which 
are  defined  in  terms  of  map  coordinate  (y  points 
North,  x  points  East,  and  z  points  "up")  components 
to  a  coordinate  system  which  sees  conventional  use 
by  aircraft  designers  (y  points  South,  x  points 
East,  and  z  points  "down"  toward  the  earth).  See 
appendix   C. 
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c.    equations/calls : 

rJ1=    OTEMP 

V1=-VTEMP 
W1=-WTEMP 
UD1  =  UDOT 
VD1=-VDOT 
WD1=-WD0T 


d.    ccmments;    None. 
10.    ANGLES 

a.  expanded    nane:    Angle    Change    Increments 

b.  function:       Compute      the    angles      resulting    from      the 
"aircraft's"  move    from    "old"    to    "temp". 

c.  equations/calls: 

DS=      SQRT  (DELX**2+DELY**2+DELZ**2) 
IF  (DELX.NE.O.)     GOTO    10 

IF(DE1X.2Q.0.. AND.DELY.LT.  0.) 

*  P5INEW=AA1 
IF(DELX.EQ.O.. AND.DELY.GT.  0.) 

*  PSINEW=-AA1 
GOTO    20 

10  CONTINUE 

PSINEK=-A IAN (DELY/DELX) 

IF  (DELX.GT.0. . AND. DEL Y. EQ.  0 . )     PSINEW  =  0. 

IF  (DELX.LT.0.  .AND.DELY.LT.  0.) 

*  PSINEW=AB1+PSINE* 

IF  (DELX.  LT.0.  .  AND.  DEL  Y.  EQ.  0  .)     PSINEW=AS1 
IF  (CELX.LT.0.  .AND.DELY.GT.  0.) 

*  PSINEW=PSINEW-A51 
20  CONTINUE 

THENEW=ASIN(DELZ/DS) 
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TRNRAT=(PSINE?-P5I0LD)  /DELTEE 

IF  (PSINZtf  .GT.O.)     PHIHEW= 

ATAN (ABS { lfiHBAl*VELOT/9- 7958) ) 

IF  (PSINET • LT. 3»)     PHINSW= 

-ATAN  (ABS  (TRNRAT*VELOT/9.7958)  ) 

IF  (PSINEW.EQ.PSIOLD)     PHI N EN =?HIOLD 


comment  s:  The  aircraft  has  a  particular  attitude  at 
the  defined  location  "old".  The  movement  tc  "temp" 
represents  a  "turn"  toward  "new".  The  angles  are 
required  for  two  reasons:  the  fact  that  the  vuln- 
erable area  of  the  aircraft  is  a  function  of  the 
aircraft's  attitude  with  respect  to  damage  propoga- 
tors  and  the  rotation  of  the  aircraft  in  the  turn 
generates  additional  accelerations  which  superpose 
on  the  linear  ones  just  determined.  These  rota- 
tional accelerations  must  be  accounted  for  when 
analysing  the  loads  imposed  on  the  aircraft. The 
variabl  es 

AA1=1.5708   radians    (90    degrees) 
AB1=3.1416    radians    (130    degrees) 

represent    recurring    quadrant   angles. The    equations 

IF  (DELX.NE.O.)     GOTO    10 

IF(DELX.EQ.O.. AND. DEL Y .LT. 0. ) 

*  PSINEP=AA1 
IF(DELX.EQ.O..  AND.DELY.GT.  0.) 

*  PSINEW=-AA1 
GOTO     20 

10  CONTINUE 

PSINEW=-ATAN (DELY/DELX) 

IF  (DELX.GT.0.  .  AND  .  DEL  Y.  EQ.  0  . )     PSINEW  =  0. 

IF  (DELX.LT.O..AND.DELY.LT.0.) 

*  PSINEW=A3  1+PSINEw 
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IF  (DEIX.LT.O..AND.DELY.EQ.O.)     PSINSW  =  AB1 
IF  (EELX.L1-Q.  .  AND.DELY.GT.O.) 
*         PSINEW=PSINEW-A31 

determine    the      turn   angle   PSINEiv.         The      turn    angle 
(or  heading    change)    is    referenced    from    the    positive 


PSINEV/C-) 


Figure   5-4        Sense   for    Horizontal   Turns. 

x-axis,  is  measured  in  radians,  and  may  be  either 
positive  or  negative.  Positive  is  defined  as  a 
CLOCKWISE  rotation.  This  sense  is  specified  to 
insure  compatibility  with  upcoming  transformation 
matrices.    See   figure   5.4.    The   equation 

THENEW  =  ASIN  (DSLZ/DS) 
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defines      an    angle      THENEW      (thetanew)         which    is 


measure   o_ 


the   "aircrax 


.tch   above 


O  C      C  -."- 1  3 !  • 


THENEW  (+) 


THENEW  (-) 


Figure   5-5        Sense  for  Pitch    Above/Below   the    Horizon. 

the      horizontal      plane         (horizon).  Positive      is 

defined  as  nose  above  the  horizon.  THENEW  is  meas- 
ured in  radians.  See  figure  5.5.  The  roll  angle 
PHINEW  defines  how  mucn  the  rignt  hand  wing  of  the 
"aircraft"  is  rotated  above  or  below  the  horizon. 
PHINEW  is  a  function  of  PSINZW  and  is  related 
through   the   turn  rate   of   the   aircraft.    The    equation 

TENRAT=  (PSINEW-PSIOLD)  /DELTSE 
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defines  turn  rate  as  the  heading  change  that  took 
place  going  from  "old"  to  "temp"  over  the  period 
DELTEE.    The    factor    9.7958    that    appears    in    equations 

IF  (PSINEW .GT.0-)     PHINEW= 

*  ATAN  (A3S  (TBNBAT*7EL0T/9.  7958)  ) 

IF  (PSINEW .LT.O.)     PHINEW= 

*  -ATAN  (ASS  (TRH"RAT*7EL0T/9.79S8)  ) 

is   derived    in  appendix   3.    The   logic   statement 

IF  (PSINEW.  EQ.PSIOLD)     ?HINEW=PHIO LD 

accounts  for  constant  heading.  It  is  written  in 
this  fashion  to  smooth  the  roll  angle  and  therefore 
roll  rate  through  the  "new"  waypoint.  This  will  be 
clarified    in   the  comments    on    the   next   subroutine. 

11.  ROTRAT 

a.  expanded  name:  Rotational  Rates 

b.  function:  Compute  the  orthogonal  rotational  rates 
that  occurred  as  a  result  of  the  move  from  "old"  to 
"temp". 

c.  equations/calls: 

PSIEOT=(PSINEW-PSIOLD) /DELTEE 
THEDOT=(THENEW-THEOLD) /DELTEE 
PHIIOT= (PHINEW-PHIOLD) /DELTEE 

d.  comments:    See   figure    5.6    for   rotation  sense. 

12.  ACIRM1 

a.  expanded   name:    Aircraft    Transformation   Matrix    #1 

b.  function:  Transform  the  velocity  and  acceleration 
components  referenced  to  the  earth-fixed  coordinate 
system  (x  pointing  East  and  z  pointing  down)  into 
components    referenced      to    coordinate   system      with   x 
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PWIDOT 


PSIDOT 


THE  DOT 


Figure   5.6        Definition   of   Positive    Rotations. 

pointing  alcng   the    nose   of      the   aircraft     (but    still 
in    the    horizontal    plane)    and    z    pointing    down, 
c.    equations/calls; 

ANG=PSINEW 

0*2=   COS(ANG)  *U1+SIN  (ANG)  *71 

72=-SIN(ANG)  *U1+C0S  (ANG)  *V1 

W2  =  H1 

0D2=   COS  (ANG)*0D1+SIN  (ANG)*7D1 

VD2=-SIN ( ANG) *UD1 +COS (ANG) *7D1 

WD2=FD1 
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d.  comments:  See  appendix  C  for  a  development  of  all 
three  transformation  matrices,  ACTUM  1,  ACTRM2,  and 
ACTEM3-  The  requirement  for  the  matrices  stems  from 
the  requirement  to  transform  the  earth-fixed  coor- 
dindate  system  velocity  and  acceleration  components 
into  aircraft-fixed  coordinate  velocity  and  accel- 
eration components.  Because  the  rotations  being 
dealt  with  are  discrete  rather  than  differential, 
the  order  of  the  transformation  matrices  is  fixed. 
This    is   also  demonstrated   in   appendix   C. 

13.  ACTRM2 

a.  expanded  name:    Aircraft    Transformation    Matrix    #2 

b.  function:  Carry  out  the  second  transformation 
whereby  the  x-axis  is  rotated  up/down  out  of  the 
horizontal  plane  to  go  through  the  nose  of  the 
aircraft. 

c.  equations/calls: 

ANG=THENEW 

D3=C0S  (ANG)  *02-SIH  (ANG)  *W2 

V3=V2 

K3=SIN  (ANG)  *U2+C0S  (ANG)  *W2 

UD3=COS(ANG)  *UD2-SIN  (ANG)  *WD2 

VD3=VD2 

WD3=SIN(ANG)  *UD2+C05  (ANG)  *WD2 

d.  comment s:  See  appendix   C. 

14.  ACTEM3 

a.  expanded  name:    Aircraft    Transformation    Matrix    #3 

b.  function:  Carry  out  the  tnird  transformation 
whereby  the  y-axis  is  rotated  up/down  out  of  the 
horizontal  plane  to  go  througn  the  right  wing  (as 
referenced    from   the   cockpit). 

c.  eguations/calls : 

50 


ANG=PHINS W 

O  A  V_  — U  J 

VAC=   COS (ANG)*V3*SIN  (ANG) *W3 

HAC=-SIN  {  ANG)  *V3+CG3  (ANG)  *!I3 

UDC1AC=UD3 

VDOTAC=    COS  (ANG)  *VD3+SIN  (ANG)  *WD3 

WDC1AC=-SIN  (ANG) *Vd2+COS  (ANG) *WD3 

d.    comments:    See   appendix   C. 

15.  AC5VEL 

a.  expanded   name:    Aircraft    Rotational   Velocities 

b.  function:  Convert  (transform) the  rotational  veloci- 
ties from  the  earth-fixed  coordinate  system  to  the 
aircraft- fixed   coordinate   system. 

c.  equations/calls: 

ANG1=?HENEW 

ANG2=PHINEIv 

P=PHIDOT-SIN  (ANG1)  *?SIDOT 

Q=    COS  (ANG2)  *TH2DOT 

*  COS  (ANG1)  *SIN(ANG2)  *?SIDOT 
R  =  -SIN  (ANG2)  *THEDOT 

*  CCS  (ANG1)  *COS(ANG2)  *PSIDOT 

d.  comments:  See  figure  5.7  for  sense.  See  appendix  C 
for  derivation. 

16.  ACACC 

a.  expanded   name:    Aircraft    Accelerations 

b.  function:  Sum  up  the  linear  and  rotational  acceler- 
ations   imposed    on    the   aircraft. 

c.  equations/calls: 
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Figure    5-7        Aircraft   Hotational   Velocities. 

AX=UDOTAC-VAC*R+ffAC*Q 

AY=VDOTAC+UAC*R-tfAC*? 
AZ=WBOTAC-UAC*Q+VAC*? 

d.    comments;    Ncne. 
17.    ACIM1S 

a.  expanded   name:    Aircraft    Limitations 

b.  function:  This  is  the  key  subroutine  of  the  trajec- 
tory package.  It  calls  for  computation  of  the 
forces  imposed  on  the  aircraft  and  compares  the 
forces  to  allowable  values.  If  the  forces  are  too 
great,  it  initiates  a  selective  reduction  in  the 
earth-fixed      acceleration        components      until  the 
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forces  on  the  aircraft  fall  within  limitations.  If 
the  forces  are  less  than  allowable  values  it  initi- 
ates a  selective  increase  in  earth- fixed  accelera- 
tion components  until  the  maximum  allowable  is 
reached. 

c.  equations/calls: 

CAIi  THRO"  ST 

IF (A  N.LT.ANtiAX.AND. FHDACC.LT. 1HMAX) 

*  CALL    BOOSTR 

IF  ( A  N .  GI.  A  Nil  AX .  OR  .  F  WDACC .  GT .  T  hM  A  X) 

*  CALL  REDUCE 

d.  comments;  Ncne- 
13.  XCHNGE 

a.  expanded  name:  Exchange 

b.  function:  Cnce  the  performance  of  the  aircraft  has 
been  maximized  at  the  point  "temp",  "temp"  becomes 
accepted  as  a  point  along  the  trace  toward  waypoint 
"new".  "Old"  is  moved  up  to  "temp". 

c.  equations/calls: 

XOID=XTEMP 

YOLE=YTEMP 

ZOIE=ZTEMP 

U0IE=UT2MP 

VOLD=VTEMP 

WOLJI=WTEfiP 

PSICLD=PSINEW 

THECLD=THENEW 

PHICLD=PHINEW 

VSICO=VELOT 
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13. 


d.    comments:       This   is,    in   effect,    the   movement    fcrvai. 
of   the      "aircraft"    to      "reap",       the      next    increaen 
toward    waypcint    "new". 

it  A    iii     fcl     — 

a.  expanded   name:    Waypoint 

b.  function:    Load    the    accepted    values   into    vectors   fo; 
use  elsewhere   in  the    non-BIGCAL   portion    of    I3MPIP. 

c.  equations/calls: 

WX  (ICT)=XOLD 

HY  (ICT)=YOLL 

WZ  (ICT)=ZOLD 

WO  (ICT)=UOLD 

WV  (ICT) =V OLD 

WW  (ICT)=WOLD 

WH  (ICT)=-PSINEW 

W?  (ICT)  =     IHENEW 

WE  (ICT)=-PHINEW 

WG  (ICT)=AN 

T (ICT) =1 (ICI-1) +JELTES 


d.    comments:       The      minus    signs    appear   in      WH(ICT)=   and 
WR  (ICT)  =   to      account    for      transformation    back,      into 
the      original   map      coordinate      system      which    has      z 
pointing   up. 
20.    FILE 

a.  expanded   nanie:    Write    to    file 

b.  function:         Immediately    write      ail    the      appropriate 
information    to   disk   file   for   future    use 

c.  equations/calls: 

IF  (XOLD.  NE.XNEW.OE.  5T01D.  NE. YNE W . OE. ZCLD . NE.  ZNEW) 
*         GOTO    10 
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WRITE  (1  1,  100)  T  (ICT)  ,WX  (ICT)  ,WY(ICT)  ,WZ  (ICT) 

*  HO  (ICT)  ,WV(ICT)  ,  T,7  (ICT)  , 

*  WH(ICl)  ,HP(ICT)  rWS  (ICT)  , 

*  WG  (ICT)  ,  LIP 
RETURN 

10  CONTINUE 

LTE=0 
WRITE  {11,  100)  T  (ICT)  ,WX  (ICT)  ,HY  (ICT)  ,  HZ  (ICT)  , 

*  WO  (ICT)  ,  WV  (ICT)  ,WW  (ICT)  r 

*  HH  (ICT)  ,  W?  (ICT)  ,W5  (ICT)  , 

*  WG  (ICT)  ,  LTR 
100         FCRMAT(11  (F1  0.2, 1X)  ,13) 

d.  comments:  The  if  statement  is  the  current  method  of 
"  breaking  out"  of  BIGCAL  when  the  program  arrives 
at  the  waypcint  "new".  To  aid  in  reading  the  data 
files  the  control  variable  LTR  is  set  to  zero  for 
all  the  interim  points  on  the  curve.  LTR  is  a  noti- 
fication by  the  user  of  arrival  at  certain  key 
points  in  the  game  scenario  and  are  described  else- 
where. 
21.    GRAFIX 

a.  expanded   name:    Graphics    subroutine 

b.  function:  Use  the  WX(ICNT)  and  HY(ICNT)  vector 
values  to  plot  the  trace  of  the  flightpath  on  the 
graphics  screen. 

c.  equations/calls: 

PX1=WX  (ICT-1) 

PY1=WY  (ICT-1) 

PX2=WX  (ICT) 

?Y2=WY  (ICT) 

CALL    WIN(lMINX,MAXX,  1  30  00 .  ,  1  2000  .  ,  0 ) 

CAII    GB7ECT(0. ,PX1,PY 1) 
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CAII   GBVECT (1,,PX2,PY2) 

CAII    GSFRCE 


d.    coaments:    The   equations 

PX1=WX  (ICT-1) 
PY1=WY  (ICT-1) 
PX2=KX  (ICT) 
PY2=WY  (ICT) 

establish  the  beginning  and  end  points  of  the  draw. 
The  call   to   the   subroutine   WIN     (window) 

CALL    WIN  (MINX,  MAXX,  1  80  00  .  ,  1  20  00.  ,0) 

reaches   into      non-BIGCAL   IBMPIP.  For    here      it   is 

simply  described  as  a  definer  of  the  portion  of  the 
graphics  screen  on  whicn  tne  drawing  is  to  take 
place.     The    calls 

CALL    G3VZCT  (0.  ,PX1,PY1) 
CALL    GBVECT  (1.  ,?X2,Pi~2) 

are  calls  tc  the  graphics  package  GEAF  77,  the  IBM 
graphics  package  at  Naval  Postgraduate  School. 
GBVECT  passing  a  (0.)  interprets  as  "Move  to  the 
following  coordinates.".  GBVECT  passing  a  (1.) 
interprets  as  "Draw  to  the  following  coordinates". 
The  final    call 

CALL    GSFECE 

forces  the  actual  updating  of  tne  graphics  screen 
with  the  move  and  draw  just  called  for. 
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C.       THIRD    LAYER    SUBROUTINES 

The   following      subroutines    are   accessed      through   BIGCAL. 

Their  overaix  function  is  to  compute  the  forces  on  the 
"aircraft"  based  on  the  accelerations  in  the  "aircraft's" 
coordinate  system.  Cnce  the  forces  are  estarlished,  a  forth 
level  subroutine,  which  will  be  included  here  for  conti- 
nuity, re-drives  the  higher  level  subroutines  to  iterate 
(ultimately)  the  forces  to  within  limitations. 
1.     THRUST 

a.  expanded   name:    Thrust    and   g-load 

b.  function:         Establisn    the      forward   acceleration      and 
g-lcad    on    the   airframe. 

c.  equations/calls: 

ANG=IHENEW 

THRQD=AX/GE2 

AN=SQRT  (A£**2+AZ**2)  /GZE 

SIGMA=(1  +  DTDH*ZTZ;i?/T0)  **4.2  57 

RHOAIT  =  RKO  SSL*SIG:iA 

CL=  (2.*AN*WL)/(RH0ALT*VELCT**2) 

DRAG=AN* ( ( CDO+CDK*CL**2) /CL) 

FWDACC=SIN  (ANG)  +THRQD+DRAG 

d.  comments:    The  equation 

ANG=THENEW 

establishes  the  "aircraft's"  attitude  above  or  below 
the  horizon  and  is  necessary  for  computing  the 
direction  through  which  gravity  forces  act  upon  the 
"aircraft".     The   following    equations   respectively 

THRQD=AX/GEE 

AN=SQRT  (AY**2+AZ**2)/3EE 
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compute  the        longitudinal  n on- dimension all  zed 

acceleration  based  or.  the  user's  desired  cove  and 
the  composite  non-dimensionali zed  acceleration 
perpindicular  to  the  longitudinal  axis.  Ihe  dgx*- 
equation 

SIGMA  =  (1+DTDH*ZIEflP/T0J **4.257 

is  the  density  ratio  (altitude  to  sea-level)  and  is 
a  function  cf  standard  temperature  lapse  rate  and 
altitude.  It  is  derived  in  appendix  3.  Ihe  density 
at    altitude    is   taen 

RHO ALT =EH0S5L* SIGMA 

the  density  at  sea-level  times  the  given  ratio.  Ihe 
density,  velocity,  non-dimensional  g-load  and  wing 
loading     (found  in   BLOCK   DATA)     are 

CL=  (2.*AN*WL)  /  (RH0ALT*VEL0T**2) 

•fed   into   the    eguaticn    for    coefficient    of    lift.       Drag 
is    a  function   of   the   coefficient    and    is    given    as: 

DRAG=AN*  ((CD0+CDK*CL**2)  /CL) 

Ihe        components      gravity,  forward        acceleration 

(required)     and   the 

FWDACC=SIN  (ANG)  +THEQD+DEAG 

resulting   drag      on    the    airframe      are    summed      to    give 
the   total      forward    acceleration      on   the      "aircraft". 
(The  acceleration      will    be      negative    if      user    "slows 
down".  ) 
2.     BOGSTR 

a.  expanded  name:    Performance   booster 

b.  function:  Increase  the  "aircraft"  performance  up  to 
the  allowable  maximum  thrust  or  g-load,  whichever  is 
smaller. 
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c-    equations/calls: 

.ICON  1=1 
5  CONTINUE 

1  =  0 
IF (AG1.EQ.  DSLX.CR.AG1.SQ. 0.)     GCTO    10 

IF  (ABS  (AG1)  ..VI.  ASS  (AH1)  .AND.  ASS  (AG1)  .12. 

*  ASS  (A  II))     1=1 

IF  (I.  HE.  1)     GOTO    10 
UDOT=1. 02*UDOT 
10  CONTINUE 

IF (AH1.EQ.  DELY.OR.AH1.EQ.0.)     GOTO    20 

IF  (ABS(AH1)  .LI.  A3S  (AG1)  . AND.  ABS  (AH1 )  .II 

*  A3S(AI1))     1=2 

IF  (I.  HE,  2)     GOTO    20 
7DOT=1.02*VDCT 
20  CONTINUE 

IF (AI1.EQ.  DELZ.Ofi. AI1.EQ. 0.)     GOTO    30 

IF  (A3S(AI1)  .LI.  A3S  (AG1)  .  AND.  ABS  (AH )  .LI 

*  A3S(AH1))     1  =  3 

IF (I. HE- 3)     GOTO    30 
WDOT-1.02*WDOT 
30  CONTINUE 

IF(AG1.EQ.  DELX.OE.AG1.EQ.0.)     GOTO    40 

IF  (ABS  (AG1)  .EQ.  ABS  (A  11)  .  AND.  ABS  (AG1 )  -LT 

*  ABS(AH1))     1  =  4 

IF  (I- HE.  4)     GOTO    40 
UDOT=1.02*UDQI 
HDOT=1.0  2*WDOT 
40  CONTINUE  — 

IF  (AH1-E2-  DELy.OR.AHl.EQ- 0.)     GOTO    50 

IF  (ABS  (AG1)  .  EQ.  A3S  (AH1)  .  AND.  ABS  (AG1)  .LT 

*  AB5(AI1))     1  =  5 

IF  (I- HE,  5)     GOTO    50 
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60 


70 


0DOT=1.02*UDOT 
7DOT=1.02*VDOT 
CONTINUE 

IF  (A3  S  (A  HI )  .  £  2-  ABS  (AID  .  "-...  i  .  AB  S  (A  ::  1 )  .  i.1 
ABB  (A  G1;  )     1=6 

IF(I.NE.3)     3 0 T 0    60 
VDOT=1.02*VDOT 
WDOT=1. 02*wDOT 
CONTINUE 
CALL    S.MLCAL 
CALL    THRUST 
IF  (  AM.  G3-  A  NdAX.Ofi.  FH  BACC.  GZ.  IH.'IAX)     GGTC    70 

GOTO     5 
CON  UNO  E 

IF  (AN.GT.  ANfUX)     -  i=AN  **X 
IF  (FWDACC.  3T.  THMaX)     Fi;DACC=TH:iAX 


comments:    The  logic    statements 

IF  ( AG  1  -  EQ . DELX  . OB.AG1.EQ.Q. 
IF(AH1.  E*.DELY  „  OH.  AH1-  EQ.  0. 
IF  (AI  1.  ZQ.DELZ  .Or.  AH.  EC-  0. 
IF  ( AG  1 . EQ. DELX .OR. AG  1. EQ .  3. 
IF  (AH1. EC-DELY.OR.AH1.EQ. ). 
IF (AI1. EQ.DELZ.05.AI1.SQ.O. 


GOTO  10 
GOTO  2  0 
GOIC  30 
GOFO  40 
GOTO  5  0 
GO 10    6  0 


avoid  iterating  on  orthogonal  directions  that  are 
defined  as  zero  by  user  input  and  to  turn  off  itera- 
tion when  then  "aircraft"  has  arrived  at  the  desti- 
nation (in  that  coordinate  plane) .  The  legic 
equations    that  follow    choose    the    direction 

IF  (A3S  (AG1)  .LT.  A35  (AH1)  .AND.  ABS  (A31)  .11 
*  ABS(AH))     1=1 

IF  (A3S  (AH1)  .LT.  A33  (AG1)  .  AND.  ABS  (AHl ) -LT 


bO 


ABS(AI1))     1  =  2 

IF  {ABS  (All)  .LT.  ABS  (AG1)  .AND.  iES(AI1)  .L 

ASS(AH1)  )     1  =  3 

i  ?  (A  3  5  (A  G 1 )  •  E-^.  A3  3  ( A  X 1 )  .AND.  r.^j  S  ( A  G 1 )  •  ±, 
S3S  (AH  1)  )     1  =  4 

IF  (A33(AG1)  .  £0>  A  33  (AIi1)  .AND.  a  3  3  (Ail)  .  L 
ABS  (AH)  )     1  =  5 

(i 

SES(AG1))     I  =  o 


jl*  <A3S(AH1)  .3Q.  A33  (All)  . AND. ABS  (AH1 )  .  LI 


in  which,  the  iteration  is  to  take  place.  Th-s  selec- 
tion cnterea  is  the  coordinate  plane  in  whicn  there 
is  the  least  distance  left  to  jo  to  the  destination. 
Thus  for  snail  altitude  changes,  the  "aircraft"  -.ill 
"pc:-ur"  to  the  desired  altitude  as  soo::  as  physi- 
cally possii/ic.  In  other  situations  the  "aircraft" 
w i .i. 1  1 1  r  n  in  shortest  direction  iirsia  sinaiiY,  the 
acceleration  (in  map  coordinates)  in  the  selected 
coordinate    plane   in    increased   in   magnitude 

3307=1. 02*3331 
V303=1 . 02* VDG I 
HD0T=1. 02*WDCI 

until   performance   limitations    are   reached. 
SZDUCR 

a.  expanded   name:    3enanded    performance   reducer 

b.  function:  For  a  user  defined  waypoint  that  exceeds 
the  allowable  maximum  thrust  or  g-ioad,  whichever  is 
smaller,    reduce   the    performance   demand. 

c.  ecuations/caiis : 


:icont=i 

CONiINUS- 
7ZLCN=V330  N-DE! 

6  1 


IF  (VElC.i.  3E.A)     3010    10 

.,  .  .,     ,  „ .  ...  .  .  .,  *  j ,  -  -. 

i\^  .3  -  .-.  '_  v.'  ~    [  A'j  i/.iJ  i) 

A  J  2=  1  .  1  -A.J  2 

AG  1  =  CC~  {Al'G}  •=  U2 

A  tx  1 =  ~  ±ii  ( A  in  G  J  *  A  J  2 

V2L0N=V1 
10  CONTINUE 

N  =  0 

CALL  MVELOS 
CALL  MVDOTS 
CALI  SMLCAL 
CALI   THfiUSl 

IF  (AN.LE.ANMAX.AND.FWDACC.LS.THMAX)     GOTO    20 
GOTO    5 

comments:  The  tact  adopted  is  different  from  the  one 
chosen  for  ECOSTE.  The  "aircraft"  in  moving  from 
"old"  to  "new"  has  a  radius  of  curvature.  When  the 
performance  limitations  of  tne  "aircraft"  are 
exceeded,  this  means  the  "aircraft"  cannot  fly  with 
a  small  enough  radius  of  curvature  to  converge  on 
the  waypoint  "new" .  The  two  available  means  of 
meeting  the  demand  are  to  decrease  the  "aircraft's" 
deliverable  radius  of  curvature  by  reducing  the 
destination       ("new")  velocity      or        increase      the 

demanded  radius  of  curvature  to  something  the 
"aircraft"  can  accomplish  oy  moving  the  point  "new" 
further  away  from  the  point  "old".  Frequently  a 
small   change    in   velocity    is   sufficient,    therefore 

VEL0N=VE10N-DSLTV 

is  chosen  as  the  first  iteration.  DELTV  is  a 
velocitv        increment      found        in         BLOCK      DATA         and 
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represents  approximately  five  knots  airspeed  in 
meters  per  second.  This  value  was  chosen  as  repre- 
sentative  of    an   attack      pilot's    maximum   precision   in 

airspeed  control.  There  is  a  lover  bound  to  which 
airspeed  may  he  reduced,  and  that  is  the  stall  limi- 
tation   of    the   aircraft.    When    tae    "aircraft"    is 

A=VSTALH"2.*D2LTV 

17  {  VZLG  N.GJ2.  A}     GCIO    10 

close  to  this  limit,  the  second  portion  of  the 
subroutine    is  invoked 

ANG=ACOS  (AG1/AJ2) 
AJ2=1.  1*AJ2 
AG1=C0S  (ANG)  *AJ2 
MH=SIN  (ANG)  *A  J2 

V310N=V1 

to  move  the  pcint  "new"  further  oat.  Note  the  final 
equation;  the  view  is  adopted  tnat  an  attack  pilot 
will  not  wish  to  be  at  a  minimum  energy  anywhere  in 
the  appraoch  phase.  Therefore  the  originally 
selected   airspeed   is   reset   into    the   iteration. 

In    summation,      this    approach    was    taken   in    preference 
to      merely      setting    demanded      performance      equal      to 
maximum    deliverable    performance    to    avoid    the    unreal- 
istic scnaric   depicted    in   figure    5.8 
SM1CAL 

a.  expanded  name:    Small   call 

b.  function:    This   forth   level   subroutine    was    written   as 
a    programmer    convenience    to    drive    the   iterations. 

c.  equations/calls: 

CALL  D2LVZC 
CALL  TSPPNT 
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A9 


X 


X 


/ 


/ 


/ 


X 


/ 


/ 


/ 


*L 


/ 


AVERY    SMALL    LATERAL    OlSPlACEMEMT 
UNTIL      A6i     COLLAPSES    TO   ZERO 


Figure   5-8 

CALL 

TilPVSL 

CALL 

I  N  ET  E  M 

CALL 

ANGLES 

CALL 

HO TEAT 

CALL 

ACTEM1 

CALL 

ACTEM2 

CALL 

A  C  TR  M  3 

CALL 

ACEVEL 

CALL 

ACACC 

Unrealistic   Scenario, 


d.    comments:      As   can  be   seen      the   subroutines    are    these 
previously    described. 
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VI-    iiOI-BIGCAL    I3MPIP    SUBROUTINES 

A.  INTRODUCTION 

For  the  sake  of  brevity,  the  only  subroutine  addressed 
in  the  section  below  is  the  one  that  was  drastically  altered 
to  accomodate  the  5IGCAL  package.  Tae  rest  of  the  subrou- 
tines that  are  not  mentioned  may  be  found  in  the  listing  at 
the  end  of  the  thesis.  They  will  have  changes  from  the  Jonns 
[Ref.  1]  version  of  IB  MP  IP  but  will  also  have  extensive 
numbers  cf  comment  cards  to  describe  to  Key  points  of  each 
subroutine. 

The  final  section  provides  a  consolidated  listing  cf  the 
graphics  calls  along  with  a  short  description  of  their  use. 
For  foliow-cn  alterations  to  this  version  of  I3MPIP  the  user 
should  consult  [Ref.  2]  for  complete  description  of  the 
available  graphics  subroutines. 

B.  SUBROUTINES 

1.     ERRCHK 

a.  expanded   name:    Error   checking 

b.  function:  Check  the  user  defined  "new"  waypoint  for 
game  rule  violations  or  user  commands  before 
entering   into    the   BIGCAL    subroutines. 

c.  equations/calls: 

DX=TARGX-X 1 

DY=TARGY-Y 1 

DISI=SQST (DX**2  +  DY**2) 

IF (DIST.LE. POPMIN)     GOTO    10 

IF (Z1  .GT. APPMAX)     Z1  =  APPMAX 
IF  (21  .LT.HTIilN)        Z1=HTMIN 
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10 


20 


GOTO    30 


30 


40 


50 
60 


CONTINUE 

I?  (LIE,  NE.  65.0?i.L£~:2.iiZ.b5)     GOTO    20 

Ir  (i- 1  •LT«BxiAi*l)     i.1=;iAA_- 
CONTINUE 
IF  (ITfi.NE. 66.OE.LTB2.NE.66)     3010    60 

IF (Z1 .LT.BRMIN)     Zl=SEflIN 

IF(ZI-GT.BRHAX)     Z1=BEMAX 

I?  (01  ST.  LZ.3RRM AX.  A^D.DIST.  GZ.  3RE3IN) 

IF  (DIST.GT.BSEHAX)     IESE=9 
IF(DIST. LI-BBEaiNJ     IEEE=13 

RETURN 
CONTINUE 

TGTHDG=AIAN2(DY,DX)  *ETD 
IF  (TGTHDG.1I. 0.  )     TGTHDG=TGTHDG+36 0. 
DX=X1-WX  (ICT) 
DY=Y1-*1  (ICT) 
ACHDG=ATAN2  PY,DX)  *ETD 
IF  (ACHDG.LT.O.)     ACHDG=ACHDG+36 0. 
HDGLMT=AB5  (TGTHDG- ACKDG) 
IF  (HDGLMT.  LE.  5.  )     GOTO    40 

IERE=10 

RE TORN 
CONTINUE 

DIST=SQRT  (DX**2+DY**2) 

SFEED=SQET  (90  (ICT)  **  2  +  WV  (ICT)  **2  +  WW  (ICT)  **2) 
DT=DI ST/SPEED 
IF  (DT.GE.2.33)     GOTO    50 

ISRR=10 

RETURN 
CONTINUE 
CONTINUE 
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d.    comments:    The  first    equations    estailisn    the    distance 
from 

DX=1ARGX-X  1 
DY=lAfiGY~Y  1 
DIST=SQRT(DX**2+DY**2) 

the  vaypoint  "new"  to  the  tar  jet.  The  next  group  of 
equations 

IF  (BIST. 12. POPflIN)     continue 

IP  (Z1.GT.  APP8AX)     Z1=APPMAX 
IF  (21. IT. HTMIN)       Z1=HTMIN 

CONTINUE 

look  at  the  user  input,  altitude.  If  the  user  exceeds 
either  the  maximum  or  minimum  inbound  altitudes,  the 
input  altitude  is  automatically  set  to  the  limiting 
paramter.  APPMAX  ,HTMIN,  and  POPHIN  are  found  in 
BLOCK  DATA.  Ihe  next  goup  of  lines  satisfy  the  game 
parameter  that  the  "aircraft"  must  he  "popped-up"  to 
a  given  altitude  berore  aim  at  the  target  can  be 
taken.    LIB    is  the  code    passed   from 

IF  (LTR. NE.65.Ofi.LTH2.NE.  65)     continue 

IF  (Z1.LT.  BAALT)     Z1  =  3AALT 
CONTINUE 

the  graphics  subroutines  signifying  that  the  bomb 
aim  line  is  desired.  LTE2  is  a  back-up  code  passed 
-  from  the  same  subroutines  and  allows  the  user  to 
change  his/her  mind  while  still  entering  data.  LTR 
is  generated  upon  entry  of  the  X-Y  point  on  the 
graphics  screen.  LTR2  is  generated  upon  entry  of  the 
Z-velocity  point  on  the  graphics  screen.  EAALT  is 
the  mnemonic  for  bomb  aim  altitude  and  is  found  in 
BLOCK   DATA.       Ihe   following      statements   ail   relate    to 
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the  boas  release  point.  If  bomb  release  is  not 
called    for; 

skips  over  all  the  rest  ana  returns  to  MAIN.  If  at 
tomb  release   the   altitude   is    too   high   or    low, 

IF  (Z1.  LT. BRUIN)     Zl=3RaiN 
IF  (Z1.GT.EE2AX)     Z1=BR:-IAa 

set  the  altitude  to  the  minimum/maximum  allowable. 
ERMIN  is  the  ninemonic  for  minimum  bomb  release  alti- 
tude, BRMAX  is  similiar,  and  both  are  defined  in 
ELOCK  DATA.  Eecause  the  flight  path  is  now  curvili- 
near, there  is  no  convenient  way  to  correct  for  an 
input  that  violates  minimum  or  maximum  bomb  release 
range  (from  target)  .  Error  codes  are  generated  that 
inform  the  user  that  the  just-entered  point  will 
have   to    be       coved.  BE3MAX    and    BRRMIN      are    found    in 

ELCCK    DATA. 

IF (DIST.LE.BEHMAX. AND. DI5T. GE. BRRMIN)     continue 

IF  (DIST.3 l.BRRMAX)     IERR=9 

IF  (EIST.  LT.BERMIN)     I2RR=  13 

RETURN 
CONTINUE 

The  following  group  of  statements  compare  the 
heading  from  the  aimpoint  to  the  target  with  the 
aircraft    neading   to    the   target. 

TGTHDG  =  ATAN2(DY,DX)  *RTD 

IF (TGTHDG.LT.O.)     IGTHDG=TGTKDG+3  60. 

DX=X1-'W"X  (ICT) 

DY=Y1-WY  (ICT) 

ACHDG=AIAN2  (DX  ,DX)  *RTD 

IF  (ACHDG.LT.O.  )     ACHDG= ACHDG  +  360. 
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HDGi:i 7=35  5  (T3THDG-ACKDG) 
IF  (HDGLai.LE.5  .)    continue 

I£ER=10 
RETURN 
CONTINUE 

If  the  "aircraft"  heading  is  not  within  five  decrees 
of  the  aimliue  the  user  is  informed,  and  the  point 
must  be  user  moved.  RID  is  the  mnemonic  for  radians 
to  degrees  and  is  found  in  3L0CK  DATA.  If  the 
aircraft  does  not  travel  down  the  aimline  for  a 
linimum    of    2.33    seconds 

DIST=SQHT(DX**2*DY**2) 

SPEED=SQRT  (WU(ICT)  **2+«V  (ICT)  **2+WE  (Id)  **2) 

DT=DISI/S?ESD 

IF  (DT.GE.2.  33}     GOTO    continue 

IEE£=11 

RETURN 
CONTINUE 

the   user   is    informed,    and    must    make    tae    correction. 

C.       GRAPHIC    CALLS 

DSINIT 

function:     Initialise   both    of   the    3277    screens. 

DSTEBJi 

function:    Terminates   dual    screen    graphics  activity. 

GASVIE  (aa,bb) 

function:  Defines  a  viewport,  or  a  smaller  portion  of 
the  total  graphics  screen  available.  Allows  subdividing 
the  total  screen  into  several  smaller  pictures. 

GASWIN  (aa, bb) 
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function:       Takes   the   data    being  supplied  by    the    user's 

equations    and    converts    it,      inco  absolute   graphic   screen 

coordinates  in  preparation  for  drawing,  Taxes  care  of 
proportional!  ty . 

GAXCTI  (aa,bb,cc,  dd,ee) 

function:  Convert  user  supplied  character  strings  into 
integer  vectors. 

GAXITC  (aa, lb,cc,  dd  ,  ee) 

function:  Convert  one  or  more  integers  into  characters 
in  preparation  for  writing  onto  tne  graphics  screen. 

GBCHAR  (aa,bb,cc,  dd  ,ee,  ff) 

function:  Invokes  two  lower-level  graphics  calls  to 
write  characters  on  the  graphics  screen  in  the  defined 
font. 

G3GARC  (aa/bb/cc,dd,ee#fff  gg) 

function:  Invokes  two  lower-level  graphics  call  to 
generate  an  arc  of  either  a  circle  or  an  ellipse  (can 
also   be  tne   whole  circle,    etc)  .     ' 

G3GD0I  (aa,bb  ,  cc) 

function:  Invokes  two  lower-level  subroutines  to  draw  a 
filled-in    dot. 

GBRXYC  (aa,tb,cc) 

function:  Head  one  graphic  data  point  using  the  cursor 
cross- hairs. 

GBVECT  (aa,bb,  cc) 

function:  Generates  a  "move-to"  or  a  "draw-to"  command, 
depending  on  whether  (aa)  is  zero  or  non-zero  (real 
number) . 

GSERSZ 

function:     Erase    the   graphics   screen. 
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GSFECE 


function;       r'orce      an   immediate      apdate   of      the    graphics 
screen    with    new    data. 


GSL1  (aa) 

function:   Sets   the  line  type   to  be  used 
(dot,  dashed,  etc.). 


ror  drawing 
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VII.    STATUS    CF    PROPOSED    IBHPIP    AJID    SOMMARY 

Despite  best  efforts,  the  proposed  version  is  not  ready 
for  i nip le mentation.  The  flaws  revealed  by  extensive  testing, 
center   around   tne   two  iterative      subroutines    and    are    felt    to 


be   solvable 


In   particular,   subroutine 


/iVDOTS    do^s 


not 


account    for   the    following   situation,    see    figure    7.1: 


\ 


Y, 


m 


"old" 


VOLD 


UOLO 


A6i 


UNEW" 


AJl 
AIRCRAFT    TRAJECTORY 


UNEW 


->•—   X 


m 


AT    'OLD 


Figure   7.1        A    Situation   Not   Addressed   3y   Subroutine   ACACC. 


ACC    =     (VELON**2-VELOO**2)/(2*AJ1) 
UDOI    =     (AG  1/AJ1)  *ACC    =     1 . *ACC    =    ACC 
VDOT    =     (0./AJ1)  *ACC    =    0. 
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We    see    that   by    the    model,    VDOT=Q.      Realistically,  this    will 

not    be      so.        There    is  a      VOLD   and   the    "aircraft"  will   acve 

some  Y  distance  belcw  "old".  Let  that  distance  be  named 
X(unknown)     cr    YUilK-     VDCT   then    will    actually   be: 

VDCT=V0LD**2/  (2*Y0NK)     —    or    soae    positive    value. 

The  best  estimate  at  an  approach  would  be  either  to  guess  a 
temporary    distance    based   upon    the    ratio; 

(VCID/UOLD)  *AG1 

or  to  guess  a  temporary  distance  casea  upon  a  linear  guess 
of  the  elapsed  time  between  "old"  and  "new".  Let  linear  time 
estimate   be   represented    by    LTE,    then: 

LIE  =  ABS((UNEa-UCLD)/UDOT) 

IUNK=  VOLD*  LTE 

VDOT=-VOLD/  (2*  (  (UNEW-0  CLD)/UDOT)  ) 

Another  area  of  concern  is  in  the  definition  of  the 
angles  in  subroutine  ANGLES.  Artificially  large  effects  are 
felt  in  the  angles  PSINSW  and  PHINEW  if  DELX  or  DELY 
collapse  to  zero  before  the  "aircraft"  arrives  at  "new"  in 
all  three  orthogonal  planes.  Additionally,  large  effects  are 
produced  in  the  last  DEL-  movement  to  "new",  causing  a 
hang-up  in  the  30CS1R/RE DUCR  subroutines.  Because  the 
current  game  restricts  altitude  changes  to  approximately  one 
magnitude  less  than  either  X  or  I  changes,  the  effect  by 
THENEfl  (theta)  is  roughly  one  magnitude  less  througnout.  To 
pave  the  way  for  future  efforts  to  smooth  out  the  angle 
changes  between  "old"  and  "new",  the  variable  counter  MCCNT 
was  added  to  Z 0MW0N/AEE5/.  MCCNT  is  set  from  0  to  1  fcy  acti- 
vation   of      either    BOCSTR      or   REDUCE    and      switched    back      to   0 
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upon  exit  from  either  iterative  loop.  As  numerical  data  are 
written  to  test  files,  the  addition  of  MCONT  as  another 
column  allows  differentiation  of  first-guess  values  from  the 
BOOS TR/R EDUCE    generated    vaices. 

The  question  was  asked,  "If  the  angles  (and  therefore 
rotational  rates  and  therefore  angular  acceleration)  compo- 
nents are  so  troublesome,  how  necessary  are  they  to  the 
accuracy  of  the  output?"-  an  analysis  of  the  individual 
acceleration  components  in  subroutine  ACACC  revealed  that 
omission  of  the  angular  accelerations  could  lead  to  as  much 
as  a  503  difference  in  the  magnitude  of  the  net  acceleration 
in  any  one  of  the  orthogonal  directions  imposed  on  the 
aircraft.  The  answer  then,  is  that  smooth  generation  of 
angles  is  necessary  if  the  modelled  trajectory  is  to  be 
considered    faithful    to  a  real   fligatpath. 

In  summation,  a  proposed  IB3PIP  improvement  has  been 
introduced  and  discussed.  It  is  substantially  more  user 
friendly.      It   employs  increased      use    of    specialized    graphics 

i 

from  [Ref.  2]  and  when  completely  debugged,  will  provide  a 
far  more  accurate  flightpath  trace  with  less  user  interac- 
tion necessary. 


74 


AP PENDIX    A 
USEE'S    BAHUAL    FOR    CURRENT    IBMPIP 


USER  »S    MANUAL 


AE    3251 

AIRCRAFT    COMEAT    SURVIV ABILITY 


A     STUDY 
of 
AIRCRAFT    ATTRITION 
in   a 
HOSTILE    AAA    AND    SAM    ENVIRONMENT 


NAVAL    POSTGRADUATE    SCHOOL 
MCNTEREY,     CALIFORNIA 
WINTER    QUARTER,     1984 
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I.    INTRODUCTION 

This  aircraft  attrition  srudy  is  designed  to  present  the 
student  with  an  opportunity  to  see  first-hand  how  the 
survivability  of  an  aircraft  can  be  evaluated  in  a  given 
combat  scenario.  The  aethods  employed  in  this  study  are 
those  used  by  both  industry  and  government  whsn  making 
decisions  in  the  survivability  analysis  and  design  of  an 
aircraft  system.  In  this  study,  one  computer  program  named 
P001  (the  AFATL  Antiaircraft  Artillery  Simulation  Computer 
Program)  will  be  used  to  simulate  the  flight  of  a  typical 
Naval  attack  aircraft  through  a  hostile  antiaircraft 
artillery  (AAA)  environment  and  tc  compute  the  aircraft 
probability  of  survival.  Another  computer  program,  MICE  II  ( 
thr  flissle  Intercept  Capability  Evaluation  Program)  ,  will  be 
used  to  compute  the  survivability  of  the  aircraft  on  the 
same  flight  path  against  a  typical  short-tc-medium  range 
surface-to-air    missle    (3AH)  . 

The      DOD      specifies   the  use      of      P001      and    HIC2      in      all 

non nuclear        survivability  assessments        in         MIL-STD-2069, 

REQUIREMENTS     FOR    AIRCRAFT  NONNUCLEAB    SURVIVABILITY     PROGRAM, 
24    August    1981. 
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II.    PROBLEM    DEFINITION 

A.  You  are  going  to  conduct  a  survivability  assessment  of  a 
familiar  Naval  aircraft,  snown  in  Figs.  1  and  2,  on  a 
typical  attack  mission  to  destroy  the  bridge  shown  in 
Fig.    3. 

E.  The  class  will  be  divided  into  groups  of  four  (4) ,  with 
two  members  in  each  group  on  the  3LUE  teas  and  two 
members    on    the   RED   team. 

C.  Each  team  will  use  POO  1  and  AIC2  II  to  determine  the 
survivability  of  the  aircraft  on  the  class  problem  scen- 
ario,   as   follows: 

1.  Each  team  will  generate  a  flight  a  flight  path  to  the 
bridge  according  to  the  rules  of  the  scenario  given  in 
Section  IV.    Keep   this    path    a    secret. 

2.  Each  team  will  also  select  the  locations  of  six  AAA 
emplacements  and  one  SAM  emplacement  that  will  defend 
against  air  attack.  Locate  tr.e  weapons  according  to 
the  order  of  battle  given  in  Section  IV.  Keep  these 
locations    a  secret   also. 

3.  Each  team  will  conduct  an  attack  against  the  other 
team  in  the  following  fashion:  The  two  teams  in  each 
group  will  conduct  a  trade  of  offensive  data  files. 
That  is;  RED  teams  flight  path  will  go  up  against  the 
BLOE  teams  defensive  positions  and  BLUE  teams  flight 
path    will    go    up  aginst    RED    teams    defensive    positions. 
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III.    SCENARIO    DESCRIPTION 

A.    This   scenario  is    purely    for    instructional   purposes    and   is 

not  based  on  any  actual  or  planned  combat  attach  sira- 
ation.  The  target  site,  order  of  battle,  and  flight  path 
and  weapon  delivery  parameter  limits  have  jeen  chosen 
only  to  provide  guidelines  for  the  class  problem.  As  much 
realism  has  been  introduced  for  the  players  as  possible 
while  retaining  an  unclassified  scenario, 
b.    Your   target    is   the  bridge   shown    in    Fig.    3    located    at    : 

X  —   14,00  0    mtrs 

Y  7, 220    mtrs 

Z 20    mtrs 

Heavy    military   supply      traffic    has    been    reported      in   this 
area.    Your   mission  is   to    destroy    this   vital  supply   link. 

C.  The  following  order  of  battle  has  been  gathered  from 
intelligence    reports   of    the    target   area: 

SAM   -    one   site   in   the    vicinity    of    the    target 
AAA    -    (2)    type    1    mode    1 
(2)    type   2   mode    1 
(1)    type   3    mode    3 
(1)    type   3    mode    4 
(1)    type   5    mode    3 
**NOTE**      Gun      types    and   their      relationship    to    AAA      and   the 
SAM   type   will   be    discussed    in   class. 

D.  The  SAM  threat  reguires  tnat  the  inbound  approach  to  the 
target  be  made  frcm  the  west  at  low  level.  A  pop-up 
maneuver  is  required  to  visually  identify  the  target 
followed  by  a  dive  combing  run  to  weapon  release.  The 
aircraft  ordnance  consists  of  MK32  500-pound  Snakeeye 
bombs.  Egress  must  be  made  either  to  the  north  or  south, 
depending  upon  individual    strategy. 
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E-    The   following   list   of   scenario      limitations  to    be    used    in 
the    development    of   your    strategy: 

1.  Aircraft    speed    limitations 

a.  miniuium    (stall)    ■ 90    m/s    (175    knots) 

b.  maximum,    with  bombs 2t>0    m/s    (505    Knots) 

c.  maximum,    bombs   released   —    310    m/s    (603    knots) 

2.  Aircraft    altitude   limitations 

a.  prior    to   pop-up 

1) .    max   457   mtrs 

2)  .    min 60   Etrs 

b.  after    pop-up 

1)  .   max  —    2050   mtrs 

2)  .    min 60   mtrs 

3.  Maneuvering   --    will   be  limited    dji 

a.  thrust 

b.  speed    brake   size 

c.  aircraft   "g"  loading   — 

the  shorter    the   leg   distance 
the  greater    the   restriction   on: 
1).    amount  of   turn   OR 
2)  .    airspeed/altitude   changes 
**N0TE**    Eemember   the   following    rule   of    tnumb   —    The    greater 
a      change  in      altitude   the      closer      together    minimum      and 
maximum    allowable    velocities    get. 

4.  Pop-up  maneuver 

a.  max  allow    dist    (from    tgt)     to    pop-up   —    6000    mtr 

b.  minimum   acceptable    pop-up   altitude   1000    mtr 

5.  Ordnance    delivery 

a.  boresight    dive/glide    only    type    acceptable 

b.  dive   limitations 

1)  must   last  —    2.33    sec    (606    mtrs   at   260    knots) 

2)  heading    must   be    within    5    degrees 

**N0TE**    The   closer    the    attach 

is    pressed   to   the    target, 
the    aore    precisely    placed 
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the    bomb    release    point    mast    be. 

c    bomb   release   ranges 

1)    max    allowable   from    tgt   —    1000    mtrs 
j.)    itii    ailow<d.cle  i  roii    tgt 1^0    mtrs 

d.    bocb   release   altitude    limitations 

1)  max    allowable   —    2000    mtrs 

2)  inin    allowable 10  0    mtrs 

F.  Weapons    emplacements 

1.  order   of    emplacement    fixed    by    program    and    goes 
(2)    type    1    mode    1 

(2)    type    2    mode    1 

(1)    type    3    mode  3 

(1)    type    3    mode   4 

a    seventh    type    5   mode    3    battery 

is   always    fixed  at   location 

X=12,800    mtr/Y=7/500    mtr    (near    bridge) 

2.  neither   of   the   type   3    batteries    may   be    placed   closer 
than    3000    mtrs    from   bridge. 

3-     (1)    type    5    SAM    battery   may    be    pat    anywhere 
east    of   the   6000   mtr    X   location 

G.  Locate   the   AAA   S    SAM      batteries     (constrained    by    the    above 
conditions)     to   defend   the    bridge. 

H.    Develop    a  flight      path   originating    at    an      entry    point    any 
where   near    (bat    net    'on')         the    western    boundary,       attack 
the   bridge   and  exit   the    map      anywhere   near    (but    net    'on') 
the    northern    cr    southern    boundaries. 

I.    May   the    force  be    with  you. 
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IV.  PROCEDURES  FOR  OPERATING  IBMPIP 

A-  In  gross  terms,  the  following  will  take  place: 

1.  a  computer  session  with  Ibmpip 

2.  submission   of  your   data  to   (2)    batch  programs   t: 
determine  your  success 

3.  making  a  hard  copy  of   your  map   from  the   Tektronix 
TEK613  terminal 

B.  The  following  equipment  is   required:   a  graphics  station 
consisting  of: 

1.  an  IBM3277  alpha-numeric  terminal 

2.  a  Tektronix  TEK618  graphics  screen 

3.  an  IBM  cursor  cont roi joystick 

Many  will  be  familiar  with  the  above  from  working  with 
the  'DISSPLA"  programs.  Additional  information  will  now 
Le  supplied  to  enable  utilization  for  this  interactive 
graphics  program. 

C.  Preflight: 

1.  ensure  graphics   terminal   switchei    on 

2.  joystick    set    up  —   ensure    all    three    (3) 

blue   rocker  switches    are   intae    (NORMAL)    position 

3.  the    3277    terminal   should   always    be    'power   on' 
—    if    not    —    do  so  now    and    set    screen 
intensity    to    your   satisfaction 

D.  Program    execution 

Refer  to  Appendix  A  to  link  up  to  Aero  Disk,  run  IBMPIP 
and  generate  a  flight  path.  Appendix  B  shows  the  sequence 
for  gun/missle  positioning.  The  black  arrow  heads  are  user 
entered   commands   or    responses. 

The  following  notes  amplify  certain  aspects  of  the 
procedure.    Read    the    Appendices    and   refer    to    these    notes. 

GUNS:    0=DISK   FILE;     1=IERMINAL;     2-PRESET 
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Do  not  choose  DISK  FILE  until  you  have  created  one  by 
utilizing  TERMINAL  to  input  some  gun/missle  locations.  In 9 
locations  entered  at   TERMINAL  will  on  your  disk   as  3UN  LOG 

&1. 

AIRCRAFT    MILESTONE    INPUT:    0=DISK    1=TERMINAL 

For  the  same  reason  as  above  do  not  choose  DISK  until 
you  have  created  a  file  by  utilizing  TERMINAL*  Tour  flight 
path    will   be  written    en   your   disk   as   PT5    LCC   A1. 

ERROR    CHECKING:     0=NO    CHECKING    1=CHECK    FOR    ERRORS 

Recommend  only  using  error  caecking  when  entering 
aircraft  flight  path  at  terminal.  It  will  erroneously  acti- 
vate on  good  data  points  being  read  in  from  the  data  file 
you   will   create. 

FLIGHT    &    GAME    PARAMETERS    1=  DEFAULT    2=USEB    INPUT 
For    class   competition,     select    1. 

VILLAGE    DRAWN    0=NOT    DRAWN    1=DRAWN 
User   preference. 

ENTER    AIRCRAFT     MILESTONES 

Look  at  bottom  right  hand  corner  of  the  IBM  screen.  You 
will  see  MORE...  This  is  a  prompt  for  you  to  hit  CLEAR  key. 
When    ycu    do, 

1.  The  border  of  the  map  on  the  graphics  screen  will 
flash  and  the  red  light  on  joystick  control  will  illu- 
minate. 

2.  You  may  or  may  not  see  cross  hairs  on  your  graphics 
screen.    Move    the    joystick   around    and    try   to    find    it. 
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3.  If  the  cross  hair  is  to  faint,  turn  CLOCKWISE  the 
WRITE  THROUGH  INTENSITY  knob  under  the  graphics 
screen.    Not   too  much.... 

4.  If  the  cross  hair  is  too  intense  it  will  wipe  a  bright 
band  across  map  messing  it  up-  Turn  COUNTERCLOCKWISE 
the    WRITE    THROUGH    INTENSITY    knoo,     until    it    stops. 

5.  The  cross  hair  may  drift  slowly  without  your  moving 
the  joystick.  Two  little  slider  switches,  under  and 
to  the  right  of  the  joystick  are  used  to  null  out  this 
drift.  .Move  the  obvious  one  until  unwanted  action 
stops. 

6.  To  enter  a  point:  Manipulate  the  joystick  until  the 
cross  hairs  are  somewhere  near  tae  western  border.  The 
number  keys  on  top  of  the  keyboard  are  the  ones  used 
to  enter  a  data  point.  Press  any  Key  greater  than  4.  a 
dot  will  appear  and  then  the  border  around  the 
altimeter/airspeed  bar  will  flash,  prompting  you  to 
move    the    crosshair   over    there.    Do    sq. 

The  vertical  cross  hair  is  to  re  set  on  your  desired 
airspeed  (as  read  frcm  the  tick  marks  on  the  bottom),  slow 
on  the  left,  fast  on  the  right.  Altitude  is  determined  by 
the  horizontal  cross  hair.  When  satisfied,  press  a  number 
key  greater  than  4.  A  dot  will  appear  and  the  border  will 
flash  (if  all  goes  well)  prompting  you  to  return  to  do  the 
next    point. 

If  all  does  not  go  well,  the  skinny  rectangle  to  the 
right  of  the  graphics  screen  flashes  and  you  will  get  an 
error  message.  A  list  of  all  possible  error  messages  is  now 
provided.    Read    them    and   the    suggested    user    responses. 

*****************      AIRCRAFT      ***************** 

MAXIMUM    ERAKING     EXCEEEED 

The      aircraft   unable      to   slow      down    to      chosen    speed 
increase   speed. 


86 


MAX    G    EXCEEDED 

Rare  —  usually  aircraft  is  not  able  to  handle  G-load  or 
turn    —    try   slowing    down   a    little. 

MAX    THRUST    EXCEEDED 

The  airspeed  chosen  is  too  fast  —  slow  down  a  little. 
**NOTE**  When  maneuvering  near  the  target,  the  distance 
between  MAX  BRAKING  and  MAX  IHSUSI  can  get  to  ^e  small.  If 
unable  to  find  an  airspeed  between  them,  next  try  changing 
altitude.  If  still  unable  to  fit  between  the  limiters,  you 
will  have  to  back  up  and  enter  a  new  X-i  location  and  try 
again. 

AIT    ICO    LOW 

Self  explanatory. 

AIT    TOG    HIGH 

Self  explanatory 

i 

POP- UP    TCO    LOW 

Self   explanatory. 

BMB    DHCP    LCVi 

Self   explanatory. 

BMB    DEOP    HI 

Self   explanatory. 


STALL 


Rare  --  try  increasing  airspeed. 
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HDG<5  DEG  TO  TGI 

Must  reenter  the  X-Y  point-  Do  a  better  job  of  putting 
point  en  bomb  aim  line. 

FINAL  EUN<2.33  SEC 

Must  reenter  the  X-Y  point  —  put  it  further  down  the 
aimline  toward  the  target. 

NO  HORIZONTAL  MOTION 

Rare  You  didnft  n;ove  far  enough  away  from  last  entered 
point.   Reenter  a  new  X-Y  point. 

MAX  LIFT  EXCEED 

Extremely  rare.  Manuever  too  severe.  Try  adjusting 
speed  downward  or  moving  altitude  closer  to  the  last  one 
entered. 

*****************   GUNS   ***************** 

TOO    CI03E    TO   IGT 

Type    3    guns    not    far   enough   out    from    bridge.    --    Reenter. 

****************      MISSLE      ***************** 

X  COORDINATE  LESS  THAN  6000' 

Missle  is   too  close  to   the  western  border.     Move  to 
east  of  6000  mtr  line. 

If  you  make  an  error  and  do  not  throw  away  the  X-Y 
point,  the  altimeter  border  will  flash  and  you  may  make  you 
airspeed/altitude  corrections.  If  you  choose  to  correct  the 
X-Y  point,  the  map  border  will  flash  and  you  must  then  go 
over  and   reenter  the   point,   see   the  altimeter   flash  and 
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return      to    it      to  reenter      the   associated      altitude/airspeed 
comb inat ion . 

If  all  goes  well,  no  error  is  made  and  the  >issr 
proceeds.  Once  the  second  point  is  entered,  the  program  will 
connect-the-dots.    Observe   Fig    4. 

As   you  progress,    your    flight   path    may    resemble   rig.    5. 
At   this   time    ncte    the    bold    rings   on   the   map. 

1.  The  outer  ring  is  used  for  aircraft  pop-up.  Once 
inside  the  ring,  you  may  at  any  tine  commence 
pop-up. 

2.  The  inner  ring  is  used  for  placing  gun/missle 
batteries    and   is  explained    elsewnere. 

Observe  Fig.  6.  In  the  artificial  case  presented  here, 
the  user  knows  where  the  guns  are  and  is  maneuvering  around 
them  to  a  thin  spot  in  the  defense.  Up  to  point  11,  the 
aircraft  is  maintained  at  a  low  altitude.  Note  where  the 
dots    are   on    the    altimeter  ber. 

Observe  Fig.  7.  The  user  has  popped  up  between  points  12 
and  13.  Observe  the  lone  altitude  dot  at  about  1250  mtrs 
altitude.  The  user  is  ready  to  take  aim  as  he  is  anout  to 
input  point  13.  Number  1  key  is  the  aim  button.  Press  it  for 
both  the  X-Y  point  and  the  associated  altitude.  A  dotted 
line  will  appear.  This  is  the  line  you  must  be  on  to  release 
the    bombs. 

Observe  Fig.  8.  Point  14  is  entered  using  Number  2  key. 
Bombs  Away.  Press  the  Number  2  Key  for  both  the  X-Y  point 
and  the  associated  altitude.  Note  the  3  dots  at  about  800 
mtrs  —  it  took  3  trys  to  get  the  airspeed  right.  It  is  now 
time  to  separt  Dodge  City.  Point  15  is  entered  using  Number 
4  key.  Again  ,  as  always,  do  this  for  ooth  the  X-Y  point  and 
the  associated  altitude.  Normal  termination  of  the  program 
occurs. 

Summary   of    the    special    keys: 
1  =  take    aim 
2=tcmb    release 
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3=abnormal    termination 
U=ncraai   termination 

**NOTE**    abnormal    termination   is    used    to      go   bach    to    a    point 
on    the    fligh  path   ana   start    over. 

**NOTE**      The   significance      of      these      four    (4)  keys      only 

applies   to      aircraft    milestone   entry-         Any   numbered      key   is 
appropriate   for    entering   gun/missle   locations. 

ARE    YCU    FINISHED     Bllfl    THIS    FLIGHT    PATH:     0  =  NO    1  =  YES 
Answer    with    1/    the   0   isn't    working    at    present. 

OUTPUT    FILE:    0=NO   OUTPUT;    1=OUTPUT 

In  order  to  submit  your  data  to  either  P001  or  MICE  you 
must  have  generated  both  a  guns/missle  AND  a  flight  path 
file.  Until  both  are  done  or  when  experimenting  without  a 
desire  for  survival  statistics,  select  0=NO  OUTPUT  and 
IBMPIP    will   terminate. 

EXTENDED    OUTPUT:    0=NCI    WANTED:     1=EXTENDED    OUTPUT 

Select  0;  there  is  a  bug  in  selection  1  which  does  not 
affect   the   operation   of   the    game. 

MISSIE    TYPE    BETWEEN     1    AND    7 

Select  5  only;  the  performance  data  on  the  other  missies 
are    not   contained  in    this   instructional    package. 

ENTER    IOUR    USER    ID    NUMBER:     —    WITHOUT    THE    "P" 

The  questions  ycu  are  now  answering  are  for  the  auto- 
matic generation  of  JCL  (Job  Control  Language)  cards  that 
will  be  inserted  into  the  P001  DATA  A1  and/or  the  MICE  DATA 
A1    files    for  submission    to    batch    proccessmg. 
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At  this  time  refer  to  Appendix  3  for  procedures  on 
entering   gun  emplacements. 

**    CHOICE    1    NEGATES    GCING    TC    ALIIKETEB 

The  advantage  of  choice  1  to  the  user  is  the  convenience 
of  not  going  over  to  the  altitude  bar  for  the  guns/rnissle; 
each  time  a  battery  is  emplaced,  the  map  border  will  flash 
again,  prompting  the  input  of  the  nexc  Dattery.  Should  2  be 
selected,  there  is  nc  program  limit  on  now  high  a  gun  may  be 
emplaced.  Consult  with  the  instructor  to  determine  his 
wishes. 

ERROR    CHECKING:     0=NO    CHECKING,     1=CHECKING 

You  have  ail  ready  become  acquainted  with  the  possible 
gun/missle  errors.  It  is  recommended  that  error  checking  be 
not  selected,  for  the  following  reason.  As  earlier 
mentioned,  error  checking  will  trigger  on  flight  path  data 
being  read  in  from  a  data  file.  At  present,  once  guns/missle 
are  entered,  the  user  must  still  eitner  generate  a  flight 
path  at  the  terminal,  or  read  one  in  from  a  data  file  in 
order   for   program   to   progress    normally. 

ENTER    GUN    LCCATICNS 

Look  at  the  bottom  right  hand  corner  of  the  IBM  screen. 
You  will  see  MORE...  You  are  being  prompted  to  hit  the  CLEAR 
key.  At  this  time,  the  map  border  will  flash  and  the  cross 
hairs    will    appear  again. 

At  this  time        look  sequentially  at  Figs. 

%  10,  11,  12,  13, 14, £15.  The  fixed,  type  5  battery  is  all  ready 
in  place.  In  each  succeeding  frame,  another  battery  is 
emplaced. 
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Now  note  the  inner  bold  ring-  This  is  the  3C00  mtr 
limit,  outside  of  which  your  type  3  weapons  must  be 
emplaced.    Note    Figs.     1^    and    15. 
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IBS  screen  will  illuminate  with  the  following  message:  ENTER 
MIS5LE  LCCATION  along  with  the  now  familiar  MORE...  Again 
hit  the  CLEAR  key  ana  enter  the  missle  location.  Observe 
Fig.  16  carefully,  as  the  missle  symbol  is  not  large. 
(X=8,500,Y=9,500). 

At    this   point      you    will    be    prompted      with    ENTER    AIRCRAFT 
MILESTONES.      Proceed    as   discussed   under    Aircraft. 

E.  AT    COMPLETION    OF    SESSION 

When  you  are  all  done,  and  I5MPIP  is  terminated  you 
should  nave  a  GUN  LCC  file  and  a  PTS  LOC  file  residing  an 
your  A1  disk.  If  you  are  not  ready  at  this  time  to  conduct 
file  exchanges  with  the  opposing  team  you  release  the  222  3 
disk    with    the   command: 

REL    222 

then    log    off  or    whatever. 

F.  HOK    TO    MAKE    A    HARE    COPY 

To  make  a  hard  copy  of  your  map,  reach  over  and  hit 
the  HARD  COPY  button  on  the  graphics  screen.  A  loud  racket 
will  indicate  which  printer  is  making  tae  copy.  Most  of  the 
graphics  screens  indicate  to  which  printer  they  are 
attached.  You  may  have  to  turn  on  the  printer  as  they  are 
noisy  and  are  frequently  left  off  until  needed.  If  you  turn 
the  printer  on,  give  it  30  seconds  to  1  minute  to  warm  up  or 
copy  quality  will  be  non-existant  or  severely  degraded. 
Darkness  of  the  ccpy  is  controlled  by  the  HARD  COPY 
INTENSITY      knob      under      the         graphics      screen.  CLOCKWISE 

increases   darkness. 

G.  PRIOR    TO    EXCHANGING    FILES 
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Exchanging  files  is  the  method  of  attacking  or  defending 
against  the  opposong  team.  If  a  file  is  sent  to  another  iiser 
and  that  user  has  a  file  by  the  same  name  the  incoming  file 
will  overwrite  the  existing  file  destroying  trie  sxistmg 
file    unless    precautions   are    taken. 

The  following  is  recommended;  RED  team;  rename  your  pts 
loc  file  PISR  ICC  BLUE  team  rename  your  pts  ioc  file  PTSB 
IOC 

This  can  be  done  inside  FLIS1  in  the  following  manner; 
Place    cursor  beside    PTS    LCC    and    type 

RENAME   /    PTSR    =    = 

and    hit    enter.  (The    31UE    team,    of    course,    would   use  PTSB)  Now 
your    file   is  protected. 

(BLUE/RED)     team;      SEND    your    (PIS3/PTSR)       LOC    file    to  the 

opposition.      If    the    respective    teams    do   not   have    a  SEND   E'AZC 

file,    one    may   be   obtained  from    the    Aero    Disk.    Link  up    to  the 

disk    using    the    previous   instructions,    tfhen   linked,  issue  the 
following   command, 

SEND   ,(you    user    number)    SEND    EXEC. 

Example;    SEND    2408p    SEND    EXEC 

Don't  forget  to  release  222  when  lone.  For  instructions 
on  how  to  use  SEND,  merely  type  SEND.  It  will  also  tell  the 
receiver  how  to  load  the  PTSx  LOC  file  sent  to  them.  To  lead 
this  SEND  EXEC  on  your  disk  issue  either  of  the  following 
commands; 

RDR 

DISK    IOAD 

Once  the  files  are  received,  -rename  them  back  to  PTS 
LOC.  Link  to  the  Aerc  Disk  using  the  described  procedures. 
Run    IEMPIP    and    select 

0=DISK   for    quns    0=DISK   for    aircraft 
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with  ER£OR  CHECKING  off.  At  the  completion  of  your  run 
the  P 00 1  and  MICE  printouts  will  report  on  how  well  the 
oppositions  aircraft  did  against  your  defense.  The  other 
teaa  will  (hopefully  not  gleefully]  report  to  ycu  ' ■■:■■  well 
your    flight   fared   against   their   defense.       Good   lQck. 
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DERIVATION    OF    EQUATIONS    USED    IN    TEXT 
From    [Ref,    3],    i  Est  an  tan  eons   velocity    is   given  as; 


at 


and  instantaneous  acceleration  is  given  as: 

"-"at 

If    the   first   equation  is   solved      for    it    and   substituted   into 
the    second    equation,    the   following   resaits: 


ads  =.     v-'a 


\r 


If      the      acceleration      is        presumed      constant      over      finite 
distances,    the    above    equation    may    be    integrated: 

a  J  is       s        J    v-Jv^ 

0  V6CO 

Z  Z 

*-  =      W  -votx>  /z% 


ACd=    (vEL6N**E-  VQ£>6**^)/(    £*  A:J)  ) 
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******************************************************* 
Returning  to  [  Ref.  3],  for; 


if  the   ecuaiton  is  recast  as; 

d\r=.    adt 


and    the   presumption      of   constant    acceleration   is      made,       the 
following   integration  results; 


VneW 


J  a>r  -   01 1  at 


v 


OLD 


w         -  v         n    a  A: 

VWEW  OLD 


Vkiew   =    Voud  +  at 


******************  *********  ********************************* 


Substitute    this    equation   into; 

is 

v  •   at 
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and    integrate  to    get; 


3  t 


s  =    Wcw,±  +^akZ 


DEL*  =    UOLD*.  DELTEE  t-^^  ODOT  X  DELTEE  K*Z 


*********************************************************** 

Reaching   tack; 

VTEHP  t* 

dv       =      a!  dfc 

VoLD  * 


Vjemp    -    Void  +-  at 


UTEMP=      UCLD    +■    UDOT^C  DELTEE 
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*********************************************************** 
From    [Ref«    4],    for    a    steady    coordinated    turn; 


TURNRATe  (a^/set)    =.  1(^1     kvi  #G0 


V" 

($)=bank  angle  (degrees) 
V  ^velocity  (knots)  TAS 

Convert  the  turn  rate  to  radians/sec: 

TURNRATE  (r4)  =      1&91  4an  qftr)         Z1Y 

"V"  360 

Convert    V  (knots)     to    V  (meter  s/sec)  ; 

TURN  RATE  (r/%)  -    IQ^l   4a  n  (/Cr)    «    ZTT 

(V-  I.M38)       3^> 

Solve    for   angle    of    bank: 

tfCr)      =.      a4un      /  TURN  RATE.  (r4  )  ;  V(%  ) 

9.7558 


PWK1EW  -     ATAN(  TURNRAT  XVELOT"/  9.79SS) 


************************************************************ 
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From    £Ref.    5],       the    pressure  ratio    as    a    function    of    tempera- 
ture   and   altitude,    for   the    icodei   atmosphere  is: 


W 


Jljp      =:      — 


R 


dR 


+■  (aTAw)i-i 


S/R 


r 


where 


L 


awATo  ] 


-aT/au 


p  (naught) = standard   sea-ievei   atmospheric    pressure 

dT/dH      = tempera ture    lapse    rate    in    the 
troposp  here 

H  =geopote ntial   altitude    (assumed 

equal   to    geometric   or 
tapeline   altitude    for    low   altitudes) 

T  (naught) =standar d   sea-level   atmospheric 
tempera  ture 

G  =acceler ation    due    to    gravity 

(assumed   to   be   constant) 

R  =universal    gas   constant 


The    temperature    profile    for    the   same    model    atmosphere   is: 


T  =    To   +•    (dl/ij-l)  H 
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Applying    tfl€   P®"6 


feci    aas   law    to   get    density 


ro" 


£ 


/R  \ 


=  M+- 


dT  WU 


dl-V 


-aT/aw 


[' ♦(£)&) 


=  H£)(*fl 


G/f? 


-1 


-aT/aw        / 

The  temperature  lapse  rate  in  SI  units  is: 


-3 


=1   -  £05"  K1C       °K/i 


m 


Gravitational   acceleration    in   SI    units   is 


<$  =    3.8Q7    Tsz 


The    universal   gas   constant    is, 


28? 


Thus  ; 


G/R 


-ai/an 


=.  4-2S7- 


and    sea-level   standard   air    density    is 


=     1.2ES" 


m-4 
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**************"***********  ***************************  ******* 
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APPENDIX    C 

FLIGHT    DYNAMICS    A2JD    COORDINATE    I 


A  Ail^lV 


Figure   C. 1         The    Map    Coordinate    System. 


/T*  7777777- ■ 


Figure    C.2        The   Aerody namicist fs   Coordinate    System 
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The  following  development  is  taken  from  [Ref.  6].  Jor  the 
equation  (linear  momentum  =  applied  forces)  for  an  aircraft 
with    a    constant    mass     (fuel    burn   net    accounted    for) ; 


at  J 


a      =mass    of    the    airplane 

AVe  ... 

(__:)=  the    acceleration   or    the   aircrait    in 

the    earth-fixed   coordinate   system 
mg      =force   applied   due   to    gravity 
la      =force  applied    by    aerodynamic    loading 
Ft      = force  applied    by    thrust 

This    equation      is   transformaed    from    the      earth-fixed    coordi- 
nate   system   to    a   coordinate    system   attached   to   the    aircraft; 


dVe        - 


at  / 


m^ii.     =    Yin 
dk  \  at 


( -_^) =acceleratio n  of  the  aircraft  in  the 

at 

aircrart-f lxed   coordinate    system 

(  (4)  )=rotational    velocity   of    the    aircraft-fixed 
coordinate    system    with    respect   to    the 
earth-fixed    coordinate   system 
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If   the   alove  equation   is  expanded   into   its    orthogonal   compo- 
nents : 

mus  =       w   (i^-NfcR  +VVT5)  =    una,   ^fa    +Ft 
wvj  =      m    (vi  +  OR  -*,-p)  =  mgy    4-  Fa   +-Ft 

we=      rn     (w^-uQ  +-V1P)    =   mcjj    4-  Fa,  +  Ft 


The  above  is  termed  the  aircraft  equations  of  motion.  In  the 
aircraft-  fixed  coordinate  system,  the  components  are  shown 
in  figure  C.3  The  next  three  illustrations  show  the  trans- 
formation of  earth-fixed  linear  velocities  and  accelerations 
to  aircraft-fixed  linear  velocities  and  accelerations: 
Finite  rotational  displacements  do  not  act  as  vectors,  hence 
the  requirement  for  the  order  of  the  above  rotations.  This 
is  demonstrated  in  figure  C.7  Transformation  of  earth-fixed 
rotational  velocities  into  aircraft-  fixed  velocities 
involves    the  following   mapping. 

W  =    (y     +■  6    4-   <fi      =<Wsferm)=^>     p   *-  0    -+-  R 

In   terms   of   unit   vectors,     ( (a) )     earth-fixed    is    presented; 


'    K  \\ 


to*=   V  k*+  ejs   ^£ 


a 


looking  at  figure  C.  3,  it  is  seen  that; 

A  A  A 

J<2,    "=    —sin©  13  +-  cDsG  k3    =  -sin^t   +■  £os<9  k 
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Figure  C-3    Components  of  the  Equations  of  Motion, 
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■■  ■  — ■      -  -■■  - i 

i 

i 

i 

i 

EAST 

Ss\> 

%^^^ 

/?*»     ^^-""""^ 

V 

V          /i  V     "*" 

*l 

\^flr\^ 

^ 

Ye 

JUL*,  =       cos(|JJU.e 

+ 

stnu  Ve 

\k2    -    -  %\t\  u  iJLe 

+ 

Cos^  Ve 

W^  =       We 

* 

• 

•                                      • 

4- 

sin  Vi)  V^ 
*  • 

V^  ^    -  sm  id    OJLe 

+ 

£OSWV^ 

I 

I 

< 

Figure  C.4    First  Rotation. 
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V^ 


HORIZON! 


Y  DOWN 


-UL3    =     cosGJi^  -  sind^ 
W^    =     sm©  a*,  +  tos&vrz 


Figure  C.5    Second  Rotation. 
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Ctipped  out  of7 

HORlrON  PLANE) 


JUo_ 

— 

JU3 

Vol 

— 

COS 

^ 

^3 

+ 

sinks' 

W3 

WSl 

— 

-sin 

* 

*3 

+ 

COS  0* 

W3 

OAa     =*     JUL3 


a. 


^L 


s  cos  ^  V3   +   bin  5^  wj 


Figure  C-6    Third  Rotation. 
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JZi 


*— *• 


—  00*  obouV  V 


Y 

~1 


V 


/v 


_b 


+■  90  abooV 


Y 


—  *&    atjoul* 


CD 


Figure    C.7        Finite   Rotations   Do   Not   Act   As   Vectors. 


furthermore;    looking    at   C.  8 , 


K  ■       /  A  v  ? 


and    finally,   looking    at    the    same    figure, 

j3    -     ^cs^j^  -  sin  2$  ko. 
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&  =  eJ*  =  * 


J3 


0  =  ^  =  J*U 


Figure   C.8        Transformation   of    ((c3). 
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Substituting  into    (  6)  )      in    terras   of      the   aircraft    direction 
vectors; 


and    this    must   e^ual 

Therefore,    solving    fcr   components, 

P  -  <j£    -sin  (s)cf 

6 
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APPENDIX    D 
CONSOLIDATED   COMMON    LISTING 

COMMON/ABC 1/WX  (1000)  ,  WY  (1000)  ,WZ(1000)  , 

*  KO  hOOO)  ,  WVMOOQ)  ,ffff  (1000), 

*  MH     1000)  ,  W?     1000)  ,Kfi(1000J  , 

*  RG  {1000}  ,  1(  iOOO)  ,ICI 

CC  MMC  N/ABC2/XN  EW,  DELX , XTEHP, XOLD, 

*  YNEH,DELY,YTEHP,YOLD, 

*  ZNEW,DELZ ,ZTEMP,ZOLD 

C0MM0N/A3C3/VELCN,VEL0T,  VELOO,N, 

*  UNEW,UTEi4P,UOLD, 

*  VNEW,VTEMP,70LD, 

*  WNEW,WTEMP,WOLD 

COMMON/ABC U/AG  1 , AK 1,  A 1 1 , AJ1 , A J2 

CCMMCN/A3D  1/ AA 1 , A31 ,  A C 1 

COMMO N/A3 D 2/VS IALL , VM  AX, VMAX1 #  VMAX2 , DEL TEE , DELTV, DELTZ 

CCMMON/A3D3/PSIEOT,THEDCIf PHIDOT 

CCMMON/ABD4/PSINEW#THENEW,PHINEW, 

*  PSIOLD,THEOLD,PHIOLD 

C0MM0N/A3F1/U1 ,Vl,tf1 ,  a2,V2,H2,U3,  V3, W3 

CCMMON/ABF2/UD1,VE1,WD1,UD2,VD2,WD2,UD3,VD3,»D3 
COMMCN/A3F3/UAC/VAC,  H  AC,  ODOTAC,  VDOTAC,  WDOTAC  ,P,  Q,  B 
CCMMCN/LOC/X1 , Y1,Z1,V 1,LTR,LTR2 
COMMON/MN/   IBAOD 

COMMO N/MN1/MINX,MAXX,  MIS Y, MAXY, 4INX1 , MAXX1 ,  MINX2,  MAXX2 
COMMC N/N AM/IN AM  1 (2)  ,1 NAM2(2)  , IUNR,IANR, IDEST 
CCMMON/OPT/IGaN,IPNCH,IEXT,ISAM,IMPrKER,IMPZ 
COMMON/PAR2/XGUN(7)  ,YGUN  (7)  ,ZGUN  (7)  ,  XSA3,  YS  AM,ZSAM,  GB  (7) 
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COMMO  N/?  AR4/AP  EMAX,  HT  UIH  ,  H1MA  X,  POPMI  N,  B  AALT  ,  3B  KIN  ,  5  BH  AX  , 
3BEniN#BRRtlAi,EADT0DEGraiET0FT 

CO  HHON/T A R/T a B GX , T  AH G Y 
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APPENDIX   E 
EXECS    USED   TO    DRIVE    FORTRAN    PROGRAMS 


(RECFM  F 

LSECL  80 

(RECFM  F 

LSECL  80 

AT  (5ECFM 

F  LSECL  80 

A1  (RECFM 

F  LSECL  30 

A1  (RECFM 

F  LEECL  80 

C    I3MPIP1    EXEC    A1 

c    THE    FOLLOWING    EXEC    DRIVES     IBKPIP1    --    D.A.M.     17KAE8U    -    - 

c**««**««*«  »*«  »  *««x***«»»»«»»»*.«»*»*-*«»»**»t.*»«**»»e**«#«*«»*. ******* 

5TRACE    ERR 

EXZC    GHAF77 

FILEDEF    09    DISK  PICTDR    DATA    B1     (RECFM    P    LRECL    80 

FILZDEF    10    DISK  GUN    LCC      A1      (RECFH    F    LRF.CL    30 

FILEDEF    11     DISK  PTS    LCC      A1 

FILEDEF     16    DISK  PAR    31V      A1 

FILEDEF    18    DISK  P001     DATA 

FILEDEF    17    DISK  MICE    DATA 

FILEDEF     19     DISK  TEMP    DATA 

LOAD    IBMPIP1    (START 


C    IBMPIP2    EXEC    A1 

C    THE    FOLLOWING     EXEC    WAS    OSED    TO    DRIVE    I3MPIP2    --     D.A.M.     17MAH34    — 

-««»*«. «»x»»«»***»m»»»***«*    ******************************************* 

5TRACE    ERR 

EXEC    GRAF77 

FILEDEF    09    DISK  PICTOR    DATA    A1     [RECFM    F    LRECL    30 

FILEDEF    10    DISK  GON    LCC      A1      (HECFM    F    LRECL    80 

FILEDEF     11     DISK  PTS    LCC      A1      (RECFM    F    LRECL     130    3LOCK    130 

FILEDEF     16    DISK  PAR    SAV      Al      (RECFM    F    LRECL    80 

FILEDEF    18    DISK  PO  0 1     DATA       AT     (RECFM    F    LRECL    30 

FILEDEF    17    DISK  MICE    DATA       A1     (RECFM    F    LRECL    30 

LOAD    IBMPIP2    (STAfiT 


;*•«■»•»»»*  ***  *************  *********************************  ********** 

C   GRAF77    EXEC    A1 

C    THE    FOLLOWING     EXEC    LINKS     THE    OSER    TO    THE    GRAPHICS    IMPLFMENTATIO  i 

C   —    D.A.M.     17MAR34    — 

STRACE    ERR 

CP    LINK    GRAF77     191     199    RE 

ACC     199    G 

GLOBAL    TXTLIB    MOD2EEH    FORT30D2    GRAFLIB    CMSLIB    NONIMSL 
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APPENDIX  F 
CLEANED  UP  JOHNS  VERSION  I  BMP  IP 

C    MAIN    EBOGRAH    04/OCT/83    VERSION 

C  CCNTEC1S    IKE    EXECUTION    Cf    THE    ENTIRE    PROGRAM. 

C  TEE    C4/CCT     7EBSICN    IS    ESSENTIALLY     ERIC    JOHNS' 

C  VERSION    WITH    SOME    USES     FRIENDLINESS     FEATURES 

C  ACCEL.     THE    AIRCRAFT    EXIGHTPATH    GENERATOR    IS 

C  UNCHANGED    FHCM    THE    JOHNS'     VERSION     kii  0    IS     KNOWN 

C  TC    HCEK    AS     THIS     IS    THE     VERSION    IN     USE    3Y    PROF. 

C  BALL'S     SURVIVABILITY    CLASS.     --    D.  &,.  .1.     16SARd<4    — 

COMMON     /MN1/    MINX,  MA  XX, SI  NY , M AXY , MI N X 1 , M AX X1 , MINX 2 , M AXX2 

common   /lcc/   xi ,  n  ,  zi,vi  ,  its,  it«2 

COMMON    /KN/    IEAUC 

COMMON     /PAR/    X  (200)  ,  Y  (2  0  0  ),  Z  (200  )  ,HD  G  (2  00  ),  C  A  (  200  >,  R  A  (  200)  ,  7  EL  (2  CO 
1) 
COMMON    /PARI/     XDOI  (2  CO)  ,  YDOT  (200)  ,ZDCT  (200)  ,  MNUM,  MBR 
CCMMON    /FAR2/    T  <  200)   ,XGU  N  (7),  YGU  N  (7)      20  UN  (  7)   ,  XSA  M  ,  i  SAM  ,ZS  AM  ,G  R  (  7) 
COMMON     /OPT/    IGUN  .IE  .,CH  ,  IEXT  . IS AM ,1 M E , X E R , IM PZ 
CCMMON    /NAM/    I N AM  1  (  2)  , IN AM2 ( 2)  ,  IUNR , IAN R , IDEST 
MBR=0 
MNUM=0 
I  (D  =0- 
CALL    3EGIN 
CALL    SCENE     (0,0) 
REWIND     10 
c 

C    DRAW    THE    FIXEE    GUN    SITE     5    ENGAGEMENT    CIRCLE 

CALL    GUNiCC     (XGUN(7)  ,YGUN(7)  ,  GE(7)) 
IE     (IGUN.NE.  1)     GO    TC    90 
C 

C    IGUN-1  =  — >    READ     USER    DZFINEASLE    GOS    SITES    PEOM    TERMINAL 

C 

CALL    ERRMK     (16) 

DC    50    1=  1,6 
10  I ERR — 0 

IE     (IMFZ.NE.  1)     GO    TO    20 

CALL    XYPT 

ZGUN (I) =20. 

GO    TO     3  0 
20  CALL   XYPT 

CALL    ZVPT 

ZGUN (I)  =Z1 
30  XGUN(I)=X1 

YGUN (I) =Y1 

C    IF    GUN    TYPE    3,    CHX    FOR    J    XM    SEPARATION    FM    BRIDGE 

c 

IE     (I.GE.5)     CALL    GUNCHK     (X1,71,IERR) 
I?     (IERR.EQ.O)     GO    TC    40 
CALL    EEREK     (IERR) 
GO    TO     10 

C    DBAW    GUN    SITE    AND    ENGAGEMENT    CIRCIZ 

40  CALL    GUNLOC     (  XGU  N  II)  ,  YG  U  N  (I )  ,  GS  (I)  ) 

50  WRITE     (10,350)      XGUN  (I)  ,  YGUN  (I)  ,ZGU!i  (  I) 

C 

C    READ    USER    DEFINEAELE    SAM    SITE    FM    TERMINAL 

C 

60  CALL    ERRMK     (14) 

IE     (IMPZ-NE. 1)     GO    TO    70 

CALL    XYPT 

ZSAM=2  0. 

GC    TO    30 
70  CALL    XYPT 

CALL    ZVPT 

ZSAM^Z 1 
80  XSAM=X1 

YSAM=Y1 

C    7E2IFY    SAM    SITE    AT    LEAST    6KM    FM    WESTERN     ECUNDARY 


CALL    SAMCHK     (X1,IZRR) 
IE     (IERE.NE.  3)     GO    TO    6C 
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C    DRAW    SAW    SITE 

c 

CALL    G a NLCC     ( XSSH.YSAS, 150.  ) 

hbite    (10,35J)    xsAa,xsAa,zs  am 

GO    TO     13 C 
c 

C    IGUN»2»=>    READ    GCN    SITES   FROM    DATA    FILE 

C 

90  IE     fIGUN.NS.O)     GC    TC    110 

DC    100     1=1,6 
100  HEAD     ( 10,  3b0)-  XGUN (I), YGUN(I)  ,ZGUN(I) 

READ    (10,350)      IS  AH,  YSLl  ,ZSAM 

C 

C    DEA»    GUN    SITES    ANE    EN  G  A  G  Z/.ZNT    CT2CLES 

C 

110  DC    120     1=1,6 

120         CALL    GONLCC     (XGUH  (I)  ,YGOH  (I)  ,  GE  (I) ) 

CALL    GnNLCC     (XSAM,YSAa,  150.  ) 
130         CONTINUE 

C    THIS    SECTION    ACCEPTS    THE    FLIGHT     8IIESTONES 

FTF\C=3. 28034 
DGFAC=57 .29578 
CALL    EHfiKK     (15) 
REWIND     1  1 

iuo       aNoa=aNoa*i 

c 

C    READ    MILESTONES    FHC3    THE    DISK 

C 

150  IF     (IMP.NE.O)     GO    IC     160 

HEAD     (11  ,360)      X  MXUH)  ,1  (MNUM)  ,Z(f!HOM  )  ,  VEL  (dNUK)  ,  LI'S 

IF     (XjaNUM)  .  LZ.O.  1)     GO    TO    150 

IF     (LTR.ECj.l)      ia?  =  1 

LT£2=LTR 

GO    TO     180 

C    READ    SILESI0NE5    FECfl    IHE    TERMINAL 

^160         CALL    XTPI 

x  (mnum)  =xi 
Y  (MNUM)  =  yi 
170.        CALL    3VPT 
Z (aNOH) =21 
VEL(dNUa) =V1 
IF     (IMP.ZCJ.O)      GC    TO     140 

C    COMPUTE    FLIGHT    PARAMETERS    AND    CHECK    FOR     ESRC5S    OR    JS  ZR    COMMANDS 
c 

180  IF     (MNUM. EQ.  1  .AND.  (LIE.  SQ. 83. CE.LIR2.ZC:. 33)  )     STOP 

IP    (HNUM.EQ.  1)     GO    TO     140 
IERR=0 

CALL    VALSET     (IERR) 

IF     ((  (LTE.ZQ.  82)  .  C2.  (LT32.ZQ.  82)  )  .AN  D.  (IMP.NE.O)  )     GO    TO    200 
IP     ( (LTR-EQ.66)  -OE.  (ITR2. EQ.66))     MBH  =  MNUM 
IF    (  (LTR.E^.  62)  .OR.  (LT32.  EQ.  82) )     GO    TO    230 
IF     (ISRR.EQ.O)     CALL    ZRRCHK    JIEBfi) 

IF     (  (IEHS*KZR.  EQ.C)  .  AND.  (IERR.NE.  12)  )     GO    TO     190 
CALL    SPRBK     (IEEE) 
BRITS     (6,390) 
WRITE    J6.U00) 
READ     (5.*)     ICGS 
CALL    FETCaS     ('CLRSCSN    ') 
IF     (ICOR.NE.  1  )     GO    TO    190 
5JEITE     (6,410) 
READ     (5,*)     IANS 
CALL    FRTCaS     ('CLRSCHN    •) 
IF     (IANS.  NE.  1)     GO    TO     160 
GO    TO     17C 

C    MILESTONE    ACCEPTED,    RESTART    THE    SEQUENCE 

C 

190         CALL    PTHPLT 

IF     (LIR    .10.-     65    .CR.    LTR2    .  SQ .    65)     CALL    AiaPT     (MNUM) 

GO    TO     14  0 
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C   THIS    SECTION    3ZSETS    TfcE    CATA 
c 

200  CALL    SCENE     (  'i  ,ICT) 

BEHIND     19 
If     (MBR    .GT.     ICT)     MB3=0 


C   COMPLETE    3ESTART 
c 

IP     (ICT    .GT. 

HNUM=0 

GC    TO     110 


1)     GC    TO    210 


C    DBA*     SETAINEE    MILESTONES 
C 

210  IE     ((ICT    .GS.     MNOM) 

DO    22  J    XNUM=2,ICT 
CALL    PTHELT 
HNOa=1NUM-1 
GC    TO     110 


and.    (mnqm  .ge.    3))    ict=mnum-i 


220 


C 

C    THIS    SECTION    XSHHIKA1IS    THE     PROGRAM 
c 

230  ELANK=0. 

CALL    P1HFLT 

LA5T=IMP 

CALL    SLFIN     (LAST) 


F03    FINil 


C    COMPUTE    FLIGHT    PAHACETES 
c 

d  x  =  x  ( a  n  o  a )  -  x  (  m  n  u  m  - 1 ) 

DY  =  Y  (MN'JK)  -Y  MNUM-1) 

DZ*Z(HNUBJ-2  (MNUM-1) 

HA  (MNUM)  =0. 

CA  (MNOM)  =ATAN2  (C  Z  ,SQ  RT  (  0  X  **  2 


IF 


;dx   . £q.    o.) 


.OP 


■    i1 

HDG  (MNUM )  =rtTA:UlJY,DX) 
GC    10    25C 


DY    .  EQ 


DY**2) ) 
0.))      GO 


TO     2 '4  0 


2U0 

IF     ((DX    .IQ.     0.)      .ANL.     (DY    .GT.    0.))      IDG  ( .1 NU  K)  =  1  .  57  079 
IF     ((DX    .EQ.     C.)      .AND.      (DY    .LI.    0.1)      KDG    MNU  K)  =-1 .  5707  9 

IF     ((DY    .EQ.     0.)      -ANE.      (DX    .LT.    0.))      HDG  (HS  u  a)  =3 .  1 4  1  59 
IF    ](DY    .EQ.     0.)      .AND.     (DX    .GI.     O.jj      HDG  (MNUM)  =0 . 

250 

XDOT(MN0M)=VSL  (3  SOM)  *C0S  (HDG  (KKUH)  )  *  COS  (CA  (MNUM)  ) 

YDCT (M  NUM    =V  EL  (MNOM)  *SIN  (  KDG  (MNUM)  )  *COS  (CA  (ilNUa)  ) 

20OT(Hunaj  =vel  mscb)  *sin  (ca  (hsuh)  ) 

C    CaEATES    NEW     "    PTS     LCC    "     IF    NEW 

C    HA?E    BEEN     INPCT 


WEAPON    03     MILESTONE    COORDINATES 


IF     ((IMP     -EQ.     C).AND.(IG0N    .NE.     1))      GO    TO    280 
BEHIND     11 
IGUN=1 

WHITS     (11,360)      ELANK ,3LANK, BLANK, BLANK, 2LANK 
DO    260     1=1, MNUM 
LTE=0 

IF     (I     .EC.    MBR)     L1R=66 
IF     (I    .EC.flNOM)     LIH=LAST 

WRITS     (11,360)      X  (I)  ,Y  (I)  ,Z(I)  ,VEL  (I)    ,  LT  5 
WHITS       1 1*370 

WHITS     (11, 36  0       VEL(1)  ,M3 H ,3LA &K, 3LAN K , IGUN , IGU N,  3LANK,  3LANK,  IGON  ,3 
1  LANK 
IF     (IGON    -SQ.     0)     GO    TO    280 
DO    270     1=1, b 

WHITE      (11,360)      XGLN  (I)  ,  YGUN  (I)  ,ZG0N  (  I) 
WHITS     (11,360)     XSAM,YSAM,ZSA3 


260 


270 


C  — - 

C    CCNVEHT    ANGL£S    FRCM    HACIANS    TO    DSGRE2S 

C 

280 


DC  290  1=1, MNUM 
CA  (I)  =CA  (I)  *DGFAC 
HA(I)  =BA  (I)  *DGEAC 
HDG(I)  =  HEG(I)  *DGFAC 


290 
C~ 

C    WHITE    THE    JCL    CA3DS 
C-- 


IF     (IPNCH.LT. 1)     STOP 

IF     (IPNCH.ZJ..2)     GC    TC    300 
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WHITE     (6,420) 

WHITE     (6,430 

WRITS     (6,440) 

WHITE    jb,U50) 

HEAD     (5,530)      I  5AM1  ( 1 )  ,1  NA  31  (2  ) 

CALL    FSTCMS     (•CLHSCEtl    ') 
300         I?    {IPHCH.2Q.  1)     SC    TC   310 

WHITS     (6,460) 

SP.ITE     (6,4JG) 

SHITE     (b,440) 

WHITE     (6,450) 

HEAD     (5,530)      INAM2  (1  )  ,1  NAM2  (2) 

CALL    FETCM3     ('CL3SC3N    ') 
310  WRITE     (6,470) 

BEAD     (5,  *)     ItJSa 

CALL    FBTC.1S     (  '  CLRSCFN    •) 

WRITE     (6,480) 

HEAD     (5,*)     IANR 

CALL    PRICES     ('CLRSCSN    ') 

C 

C    CHOOSE    DESTINATION    FOF    OUTPUT:     PRINTER    On    R FACER    FILE 

c 

WRITE      (6,490) 
320         WHITE     (6,500) 

READ     (5,»)     IDEST 

IF     (  (ICEST.N  E.  1)  .  AND.  (IDEST.  NE.2)  )     GO    TO    320 

CALL    FRICMS     ('CLRSCFN    ') 

C 

C    PRESET    LOADS    HIC2/E001    DATA     FILESCNTO    USERS     A1     DISK 

C 

CALL    PRESET 
c 

C    DUMMY    INPUT    ROUTINE    IC    LET    USER     KNCW    3HZEE    5/HE    IS     IN    THE    PGM 

C 

WRITE     (6,510) 

HEAD     (5,*)     IGC 

CALL    FRTCMS     ('CIuSCRN    ') 

C 

C    FORCE    CALL    TC    CMS     10    SUBMIT    DATA     FILES    TC    SATCh    PROCESSING    PGM 

c 

IF     (IPNCH.SQ.2)     GC    TC    330 

CALL    FRTCMS     ('EXEC  ','  SUBMIT       ' ,'P00  1  '  ,  ■  DATA  ■) 

IF     (IPNCH.ZQ.  1)     GO    TC    340 
330  CALL    FRTCMS     ('EXEC  '  , • SUBHIT       ','MICS  ','DATA  ') 

340  CONTINUE 

C 

C    DUEBY    INPUT     FOUTINE    TC    LET    USER     5NCW    PGM    TERMINATION     HAS    3ESN     REACHED 
c 

WHITE     (6,520) 

READ     (5,*)     IGC 

STOP 

350         FORMAT  (3F10.2) 

360  FORMAT  4F10.0.I3) 

370         FORMAT  (6H99999.) 

380  FCHMAT  f  f  10.  0  ,  12,  81 1  ,F1 0.  0) 

390  FORMAT  (3H  ) 

400  FORMAT  54H    DC    YOU    3ANT    TO    FIX    THE    2  FRO R : 0  =  NO , USE    THE    ?OINT;1  =  YES) 

410  FORMAT  (4CH    DC    YCO    WANT    TC    RETAIN    X-Y    PT : 1  =  I  IS ; 2  =  NO ) 

420  FCHMAT  (40H    TO    SU2MIT    ?00  1    TO    EATCK     YOU    MUST    CREATE) 

430  FORMAT  ( 3 1H    A    GC3    CONTROL    LANGUAGE    "CARC".) 

440  FORMAT  51H    ENTER    A     NAME    —    IT    MAY    CONTAIN    UP    TO    3    CHARACTERS;) 

450  FCHMAT  (25H    **CC    NOT    INSERT    BLANKS**) 

460  FORMAT  (44H    TO    SUBMIT    **MIC2**    TO    3ATCH    YOU    MUST    CREATE) 

470  FCHMAT  (46H    ENTER    YO CH    USER    IE    NUMBER    —    WITHOUT    THE    "?".) 

480  FCHMAT  (48H    ENTER    YODR    ACCT     NUEBEE    --    PROVIDED    3Y    THE    PROF.) 

490  FORMAT  (41H    CHCOSE    THE    DESTINATION    FCR    YOUR    OUTPUT:     ) 

500  FCHMAT  (30H     1=PRINTER;     2=YOUR    READER     FILE) 

510  FORMAT  (46H    ENTER    ANY    **NUM3EB**    TO    SUEMIT    fOUR    POO  1 /M ICE , 1 4 H    DATA 

1     FILE(S)  .) 

520  FORMAT  (40H    ENTER    ANY    **NUMBEP<*    TO    TERMINATE    T2PI?) 

530  FORMAT  (2A4) 

END 
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c  suaaooTiajE  begin 

C  THIS    SUBRO'JTLNE    INITIALIZES    THE    GRAPHICS    AMD     REQUESTS 

C  THE    ZZ2T-    OPTIONS. 

SUBROUTINE    BEGIN 

CCKMOM    /KM/    IEAUD 

COMMON     /OPT/    IG0NfIENCH,I2XT, ISAM, IMF, KEB,IMPZ 

C 

C    BEAD    USEE    OPIIONS 

c 

CALL    P3ICHS     ('CLRSCSN    ') 


10  WHITE     (6,60) 

IP    ((Ig6s.NB-0)'.AND-  (I3UN.2I2.  1).AND.    (IGUN.NE.2))     GO    TO    10 


CALL    FETCMS     I 'CLESCSN    '  ) 

IF     <IG  UN. ME.  1)     GO    TO    20 

WHITE     (6,70) 

WRITE     (6,80) 

BEAD     (5,*)     IMFZ 

CALL    rulers     ('CLRSCEN    •) 
20  WEITS     (6,90) 

HEAD     (5.*)     IMP 

IF     (  (IMP.NE.O)  .AND.  (iaP.  NE.  1  )  )    GOTO     20 

CALL    FSTCMS     (' CLRSCEN    ') 
30  WRITE     (6,100) 

HEAD     (5,*)     X£R 

IF     ((KER.ME.O)  .AND.  (BEH.  NE.  1)  )    GOTO    30 

CALL    ?  HI  CMS     (  '  CLaSCSN    '  ) 

WRIT^      (6,110) 
40  KBII2    J6,120) 

rtEAD     (b,*)     I5AUC 

IF     (  (IBADD.N2.C)  .AND.  (T3AUD.  ME-  1)  )     GC    TC    40 

CALL    FSTCMS     ('CL?SC?N    ') 
50  WRITE     {6,130) 


REAL-     (b,  »)     KOM 

(  (KON.  NE.  1)  .  AND.  (KOM.  ME.  2)  )     GO    TO     50 
CALL    FRTCMS     pCLSSCFN    M 


IP 

'7sba~.~NZ.   '  1)~_CALLCONCEG 


C    IMTIALTZS    TEE    GRAPHICS     AMD    CLEAR    SQRE2N 

c 

call  Dsmrr 

CALL    G  SERSE 
RETURN 
60  FORMAT     (56H    GCMS:C  =  DISK    FILE ; 1=TERMI NAL ; 2=?3E5 ST ( GOUGE    SET    OF    GUMS 


form 


70            FORMAT  (55H  **    CHOICE    1     NEGATES    HAVING    TO    GO    OVER    TO    THE    ALIIMETEB 

1) 

30            FORMAT  (55H  GDN/SAH    SITE    ALTITUDE: 1= FIXED    TO    20M;2=USER    DEFINEABLE 

1) 

90            FORMAT  (5CH  AIRCRAFT    MILESTONE    INPUT:    0  =  DISK    FILE;     1=TERMIMAL) 

100          FCBHAT  50H  E5ECR    CEECKING:     0  =  NO    CHECKING;     1=CH£CK    FOR    ERRORS) 

110          PORMAT  (54H  **    SELECT    1200    BAUD    FOR    THE    I EM3277/T SK6 1 8    TERMINALS.) 

120          FORMAT  (35H  EAUD     FATE:     0=300     EAUD;     1=1200     3AUD) 

130          FORMAT  (50H  FLIGHT    5    GAME    PARAMETERS:     1=DEFAULT;     2=USER    INPUT) 
END 
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a  a  a  a  a  *  a  a 

GES    TO    T 
*****  *** 


C*** ********  ******************************************* 

C    SOEaCUTINE    CONCHG 

C  THIS    SDEEOUTINZ     1ILCHS     CFESATCti    CHAN 

C  SIMUIATIOH     PARAMETERS. 

r***»******* *************** ***************  ************* 

snEfiOUTINE    CON C EG 

CO.IHON    /PAH 3/    IJiD,ACLIFT,CLSAX,SI.,TMAX,CD0,CDK,,/:iAX1  ,7.1  AX 

CC.-.1CV    /EAH4/     AEPHAX  ,  HT1  IN,  HT  MAX,  SPDHIN  ,GI1AX  ,PO?riI3 

COMMON    /TAR/    IAHGX/TAaGX 
c 

C   WRITE   instructions 

c 

10 


a  ******  ** 

HE 

*  *  *  *«**  ** 


20 

30 

40 

50 

60 

70 

30 

90 

100 

110 

120 

130 

mo 

150 


1) 


6,190) 
6  200) 
6  ,210) 
o,220) 
6 ,230) 
6 ,240) 
6,250 
b  ,  260 
6  ,270 

,*)    :< 

IF     ((K     .12.     J)     .Or,.     JK    .  GT.     17))     GO    TO    10 

GC    TO     (180,20 , 30, 40,50, oO, 70, 3C, 90,  1  CO,  1  10, 120,  13 


0, 140, 150,  1oC,  170 


WHITE 

HEAD 

GC    TO 

WRITE 

HEAD 

GO     TO 

WHITE 

READ 

GC    TO 

WHITE 

a  2  AC 

GC    TO 

WHITE 

HEAD 

GC    TO 

WRITE 

READ 

GO    TO 

WHITE 

HEAD 

GC    TO 

WHITE 

READ 

GC    TO 

WRITE 

HEAD 

GC    TO 

WRITE 

READ 

GO    TO 

WRITE 

HEAD 

GC    TO 

WHITE 

READ 

GC    TO 

WHITS 

HEAD 

GC    TO 

WHITE 

BEAD 

GO    TO 


(6  ,230) 
5.*)    CL2AX 
10 

(6,290) 
5,*)  JL 
10 


)     SPDHIil 


(6,300) 

1(3 

(6,310) 
5,*)     GMAX 
10 


(6,320) 
5.*) 


i<5 


aia: 


(o,330) 
5.*)     HTKAX 


10 


(6,340) 
5,*)    pop  kin 


,350) 

*)     APEMAX 


(6  ,360) 
5.*)     T3AX 
10 


Ptf>n 


10 


CDO 


(6 ,380) 
5,*) 


,    CDK 

1(5 

(6,390) 
5,*)     VMAX1 
10 

(6  ,400) 
5-*)     V.1AX2 
10 

(6,410) 

5.*)     TABGX,IAHGY 
10 


C 

C    READ    NEW    PARAMETER     VAIUES    ?H02    THE    DISK 

C 

160 


REWIND  16 
HEAD  (16,450) 
HEAD  (16,450) 
HEAD  (16,450) 
GO    TO     10 


CLKAX,HL,SPDHIN,GMAX,HTMIN,HTHAX 
ECEMiN.APPaaX.TBAX,CO0  .CDK,  V  MAX  1 

7MAX2,i'AaGX,TAHGY 
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C  WHITE  EARAMETEH  7ALIES  TC  THE  TERMINAL 
C 

170 


W5ITE  (6,420) 

WRITS  (6,450)     CLdAX,M.,SPDHIll,GHAXrHTMIN,HXaAX 

WHITE  (6,430) 

iSIIS  (6,450)     EOE2IN,APPHAX,TEAX,CD0 ,CDF,VaAX1 

WEITS  (6,440) 

WRITE  (6,450)      JHAX2,TAaGXfTARGS 

GC    TO  10 
C— 

C    SAVE    EARAMETES    7  ALOES    CH    DISK    AND    FETORS     TO    CALLING    ROUTINE 
C— • 
180 


ETES    7AI0ES    CN    DISK    AND    RETURN     TO    CA. 

16 

(16,450)  CL»VA  i  ,'iiL  ,3  ED  MI  N  ,GMAX,  HTM  IN,  , 

(1  to, 45  0)  EOEaiii,A?PMAX,IMAX,CD0fCDK, 

(16,450)  VHAX2  ,TAi<GX,TA5GY 

(25H  | 

(50H    SELECT    PARAMETER    TC    BE    CHANGED 


190 
200 
210 
2  20 
230 
240 

250 
260 
270 
280 
290 
300 
310 
320 
330 
340 

350 
360 
370 
380 
390 
400 
410 
420 

430 

440 

450 


REWIND 

WRITE 

5  SITE 

WRITE 

RETURN 

FORMAT 

FCEMAT 

FORMAT 

FCEMAT 

FCEMAT 

FORMAT 

10  LI 

FORMAT 
FCSMAT 
FORMAT 
FCSMAT 
FORMAT 
FORMAT 
FC3HAI 
FORMAT 
FORMAT 
FORMAT 

1) 
FORMAT 
FCEMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 

1) 
FORMAT 

1  MAX 

FORMAT 

D 
FOEMAT 
ENE 


I  MAX 

::ax  1 


(25H 

(50H 

(48H 

47K 

(42H 

(63H 

"*(4  4H 

(44H 

(4  3H 

(27H 

(  19H 

1SH 

(  2on 

(23H 

47H 

(55H 

^IH 

(35a 

(37H 

(25H 

(3  2H 

(393 

33H 

(55fl 

SELECT    PARAMETER    TC    BE    CHANGED:     1  =  NO    MORS    CHANGES) 

2  =  MAX    LIFT    COEFF;     3=WIKG     LOADING;     4=SIALL    SPEED) 

5  =  MAX    G     FORCE;     6=KIN    ALT;     7  =  MAX    ALI(<2200    MTR) ) 

d=CI3TANCS    TO    TARGET    B-FCRS    POPUP    ALLOWED) 

9=MAX    APPROACH    ALT;    10=MAX    T/W    RATIO;     11=DRAG    COEF.     W/ 

12  =  LIFT    DRAG     CONSTANT:     13  =  MAX    SPD    WITH     SOM3) 
14=MAX    SFD    W/O    30ME;     15=TAEGST    COORDINATES    ) 
16-READ     PARAMETER    FILE;     17=LIST     PARAMETERS) 
ENTER    MAX    LIFT    COEFFICIENT) 

WING    LOADING) 

STALL    SPEED) 

MAX    G     FORCE    ALLOWED) 

MINIMUM    ALTITUDE) 

MAXIMUM    ALTITUDE     (LESS    THAN'    2000     aEISRS)) 


NT: 
ENTER 
tNTEa 

ENTER 
ENTER 
ENIER 


MINIMUM    DISTANCE    TC    T2RG-T     jEFORS    P'JP-'J?     ALLOWED 

ENTER  MAXIMUM    APPBCACK    ALTITUDE) 

ENTER  MAX    THRUST    TC    *  EIGHT    ALLOWED) 

ENTER  DRAG    COEFFICIENT    FCE    ZERO    LIFT) 

ENIE3  LIFT    DRAG    CONSTANT) 

ENTER  MAX    SPEED    CARRYING     A    EOMB) 

ENTER  MAX    SPEED     AFTER    oOMS    IS     RELEASED) 

ENTER  TARGET     X    ANL    I    COORDINATES) 

MAX    CL  WING    LD       STALL    SEE  MAX    ( 


(75H    PCE-UE    DIST  APPE.HT.        MAX    THRUST 

SFD    WITH    ECMS) 

(55H     MAX    SiD     »/0     BCM3  TARGET    X    COORD. 

(6F12.4) 


MIN.HT.        MAX.HT. 
CDO       DRAG    CONSTANT 
TARGET     Y    COORD. 
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C    SUBROUTINE  SCENE 

C  IEIS    BOUTIN  E    DRAWS    THE     ATTACK    aAPAND    ASSOCIATED 

C  DISPLAYS.     DURING    RESET     IT    OETAINS    THE    LAST    MILE- 

C  STONE    THE    USER     WISHES    TO    RETAIN. 

SUERCUTINE    SCENE     |3RC,ICT) 

COMBO  8    /KN1/    BIHS,aAXX,  31  SY  , MAXY,aiNXl,  3AXX1,HINX2rMAXX2 
COMMON     /ERR/    MKIa  X  ( 3  )  ,MKEaY  (1  8) 
cc: S  BOM    /.y-N/    IE  sue 

COMMON    /PAR/    X  (2  0  0)  ,  I  (2  00)  ,  2  (200)  ,HDG  (200)  ,CA  (200)  , RA  (200)  , VEL  (2  00 
1) 
COMMON    /TAZV    TAEG2,TAHGY 
SEAL*4     GX,GY 
LOGICAL    *1CHARS(2G) 
ICT=0 
c 

C    ERASE    THE    TEK618    SCREEN 

CALL    SSEBSS 
CALL    DSTEBH 
C 

C    READ    USER    OPTIONS : ECRCEH    AND    GUN/^ISS    POSITS    OR    FILL    IN    MA?    ALSO. 

C 

WRITE     (6.100) 

BEAD     (5,*)     BAP 

IF     (lag    .EQ.     0)     GC    TC    10 

WEITZ     (6,90) 

READ     (5,*)    ICT 

CALL    FRTCMS     (•CLSSCfiN    ') 

c 

C    DBAH    THE    X ,Y    MAP 

C    THE    ROUTINE    READS     X.Y    PAIRS     F HO B    FILE    09.     A    -2.0,0     INDICATES 

C    END    CF    FILE, -0.5,0    INDICATES     A    flOVE,ALL    CT-HER    VALUES    ARE    PO- 

C    SITIVE    AND     aESULI     IN     A    C SAW    TC    THAT    POINT. 

c 

C    RE-INITIALIZE    THE    IEK618    SCREEN 

c 

10  CALL    DSINIT 

CALL    WIN     (MINX, MAXX,  18000.,  12CC0.,1) 

IF     (MAP     .EQ-     Q)     GC    TC   40 

REWIND    9 

READ  (9,80)  GX,G1  , 
20  BEAD    (9,80)     GX,GI 

CALL  G3MOVE  (GX.GY) 
30  READ     (9,80)     GX,GY 

IF     (GX-LT.-1)      GC    TO    40 

IF     (GX.LT.    0)      GO    TO     20 

CALL    SBDBAti     (GX,3Y) 

GC    TO    20 

C    »ABK    THE    TARGET:     GUNLCC    PUTS     A    ♦     AT    GUN/MISS    POSIT    AND    CIH COBS CRI EES 

40            CALL    SOMLCC     (T ARGX.T ARG Y ,  150. ) 
CALL    GUNLCC     (  T  AEG  J  ,  I  AEG  Y  ,  300  .  ) 
C 

C    DRAW    TIC    .'1ARKS    5VE5Y    2C00    MTHS 

DO    50    1=1,8 

11=2*1 
c 

C    THIS    ELOCX     DSAWS    TEE    X-AXLS    TIC    MARKS 

c 

CALL    BEHOVE     ( I*200G.  ,  10  00  .) 
CALL    GBDRAW     (I*20C0.,0.) 
CALL    GAXITC     ( 1  ,  IV  .2  ,  CHARS  ) 
CALL    GSCHAR     ( I  *  20  00.  ,  0.  ,  2  .  ,  0  .  ,  2  ,  CHAR  S) 
c 

C    THIS     BLOCK    DEAWS    TEE    Y-AXIS     TIC    MARKS 

C 

IF    (I    .GE.    6)     GO    TO    50 
CALL   GBMCVE     (  1  C JO. . I *20 00 . ) 
CALL    GBDEAW     (0.,2C0O.*I) 
CALL    GAXITC     (  1  .1 H  ,  2 , CHA 3S ) 

CALL    G3CHAR     (-60 .  ,1* 200 U .  ,2.  ,  0. , 2 ,CH  ARS ) 
50  CONTINUE 
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I1*MIHY 

I2=MAXY 

BAXY=aiNY-15 

SINY=aiNY-2Q0 

CALL  3IN     (HINX+275.MINX  +  2200,  195 

CALL    G3CHAR     ( 1  G. , 11 0 .  ,2  .5  .0.  ,30. 

CALL    GBCEAE     (  1  C  .  ,U0.  ,2.  5  ,  J-  ,  25  , '  ZERO 

CALL    GSFBCE 

MAXY=I2 

3i:;y=i  1 


,185. ,C) 

X&Y    3A5KS    IS    2000 
DEGREES     ALONG 


METER    INTVLi 
X    AXIS') 


C 

C    DEAW    THE    ALTIMETER 
C-- 


60 


CALL    WIN     (MINX  1,flJXX  1,350.,  22CC,  1) 
DO    60    1=2,20,2 

CALL    GESCVS     (0., 1*100.) 
CALL    GSDRAW     (350. ,1*  100 . ) 

CALL    3AXITC     ( 1 , I, 2, C fcARS) 

CALL   G3CHAR     ( 0 . , I  *  1  0 C. ,  2.  ,0  .  ,  2 ,CHAR S ) 

DO    70    1=1,6 

CALL    GEaCVE     (1*50. ,  100.) 

CALL    G3DEA*     (1*50.  ,0.) 


70 

C-- 

C    3AHK    BESET    PCINT     VELOCITY    AND    ALTIIUDE    AS    OPERATOR     AID 

C— 


80 
90 
100 


IF  (IR 
3AXY=.1 

aiNY=a 

CALL  i 
CALL  G 
CALL    G 

CALL  G 
3AXY=I 

aiNi=i 

RETUiN 

Fc:<aAr 

FORMAT 
FORilAT 
END 


0-NE.O     .AND.    ICT    .  GT.  1)     CALL    GBGDOT     (9  .  ,  VSL  (ICT)  ,Z  (ICT)  ) 

INY-15 

INY-iOO 

IN    (SINX+28C0.2IHX+3900  ,195. 


HCEAil 
3CHAH 

5FSCE 
2 

1 


I  10.  ,  1l6..2.  0,0. .is, ' ALT 
(  10.  ,60.  ,2.  0,0.  ,  3  2,  '  V  EL  0 


,  1  35 
ALT 


,0) 


:'.A3KS    IN    2J0    METER    INTVLS') 
IS    50    M/S    INTVL    ALONG     X    AXIS' 


2) 


(2f10. 

(38H    AT'  -HIGH    POINT    DO    YOU    WANT    10    R2STA2T) 
(38H    VILLAGE:    0=NCI    DRAWN;     1=  VILLAGE    DRAWN) 
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C   SOB 

c 
c 
c 
c 


******************************* 

BOUTINE    WIN 

THI3  BCCTINE  D  EF 
CH  TfcE  HORIZONTA 
VERTICAL  AXIS.  T 
7IHTICAI  2AHGE    I 

*********  >  ***  I  ***b  a  **«***«**.*« 

SOSSOUTINE    WIN     (LX,XX,3X, RX,J 
COHHON    />!N/    IEAUD 

cchhok  /snv  aisxraAxx/aisY,« 

REAL*4     MINI (4) 

INTEGER* 4    VI (4) 

DA1A  IIM1  (1)  /C./f  SIN!  (2)  /0./ 


*«»****   *******£*!**«*  ***:«!*.I  -j  *«»#«*«*** 


INES    A     WINDOW    EXTENDING    FRO.1     LX 
L    AXIS,     AND     ?ROK     MI  NY    TO     HAXX     ON 
HE    HORIZONTAL    RANGE    LS    RX ,    THE 
S   RY. 

TO        :1X 

THE 
***  ** 

HE) 

fiXY,aiN 

n,3AXX1  ,.'! 

IHX2, 

2AX 

<L^ 

c 

C    DEFINE    THE    BISDOW 
C  — 


VI  12) 
V1  (u) 

UIN1 
BI5I1 
VI  (11 
VI  3] 

CALL 
CALL 


=  MINY 
=  4AXY 

3)  =RX 

4)  =  RY 
=  LX 

=  .1X 
GAS  VI: 
GAS  WIN 


IF  (JMP  .ZQ. 


(V1  ,3) 
(HIN1,;) 
0)  GC  TC 


20 


C 

C  FLASH  THE  DEFINED  5IHCC9 
C  — 


10 
20 


ICI=4+50*I3A0D 
LC     10     1=1, 1C 
CALL    GBfiQVE 
CALL    GnLRAW 
CALL    G  JD  R A  * 
CALL    GtJDRAW 
CALL    GcDRAW 
EET'JiN 
END 


(C.,0.) 
(WN1  (  I) 
(5IN1  i  J) 
(WIN1  (35 
(KIU1  H) 


,'WTt"  1  (4)  ) 
/  -T  Ml   |<* )  / 

,BI»1  (2)  ) 
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C    3CBE0UTIJS  GUNLOC 

C  THIS    SUEROUTINE    CRAMS    EFFECTIVE    FIRE    RADIUS    CIRCLES 

C  ABOUND    THE    DEFENSIVE    AAA    EATTERIES.     IT     DRAMS 

C  A    RING    SUHIN    aaiCH    AI3C2AFT    POP-JP    A0S7    TAKE    PLACE 

C  AND    A    SING    OUTSILE    WHICH    TEE    TYPE    J     AAA    BATTERIES 

C  NL'ST    3E    PLACED. 

SOESOtJTINE    GUNLOC     (GX,GY,aAD) 

COSMOS     /KN/    I3AUD 

CC2HON    /3N1/    HINX,dAXX,  HINY  ,  .1AXY,.1INX1  , 2AXX1  ,  ;-lINX2,  3AXX2 

REAL*4     X,Y,DX,CY 

X  =  GX 

Y=GY 

C 

C    IDENTIFY    THE    MA?    AND    ELACS    A     •+  '     AT    THE     LOCATION 

C 

CALL    WI!I     [JUNX, HAXX. 18000. , 120C0- ,0) 

CALL    GEMCVE     (X-75..Y) 

CALL    GBDBA*     (X+75  .  .  Y) 

CALL    GEilCVE     (X, Y+75. ) 

CALL    33DRAW     {1,1-15. ) 

C 

C    DETERHINE    NU.1EZH    CF    SIZES   TO    E2    USED 

C 

I£TEP=3 

IF     (8AD.LT.      1600.)     ISTE?=o 
c 

C    DRAW     A    CIRCLE    ARCUNC    IEE    SITE 

c 

EC    10    1=3,130 , ISIEP 

ANGLS=I*C.03U9C7 

DX=RAD*CCS (ANGLE)  *X 

DY=RAD*SIN( ANGLE)  +Y 

CALL    SESCVa     (EX*1G.,LY) 
10  CALL    J3DRAW     (B2!-1G.,CY) 

C 

C    DRAW    3KN    &    6KH   GUNSITE    AND    POE-UE    LIMITATION    RINGS 

c 

I?     ( (X.NE.140CC.)  .AND.  (Y. NE. 7220.) )      BETORN 
CALL    GEGAEC     (  3  000  .  ,  3  000  .  ,  X,  Y  ,  1.  ,  1  .  ,  2  .  ) 
CALL    GEGARC     (  6  00  G.  ,6  000  .  ,  X,  Y  ,  1.  ,  1 .  ,  2  .  ) 
RETURN 
END 
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c  subroutine   xxpt 

C  THIS    SOEEOOTINE    CETAINS     THE    X    AND    Y    COORDINATES 

C  AND    COHHAND     FOR     EACH    DESIGNATED    POINT     (HILESTONE) . 

SUBROUTINE    XYPT 

CCSMON    /ICC/     X  1,71,2  1,7  1  ,  ITS,  IIR2 

COMSOH     /BN1/    BINX,HAXX,aiSX,ttAX]f,HIHX1,  MAX  XI  ,  HI3X2,  21 AXX2 

CCMUON    /«N/    IEAUC 
C               CALL    3ELL 
c 

C    FLASH    MAP    AND    3ST     X,i    AND   THE    FIRST    COMMAND 

c 

CALL    JIN     (Mia X-dAXX, 1800 0. r 1 2QC0. ,1) 

CALL  SPOT  (X  1  ,Y1  ,iIH) 

C      CALL  SELL 
RETURN 
END 


C  SUBROUTINE  ZVPT 

C  THIS  SUBROUTINE  CETAIN5  THE  ALTITUDE  AND,  DEPENDING 

C  CN  IKE  CIRCUMSTANCES,  THE  VELOCITY  OF  THE  DESIGNATED 

C  POINT. 

C**<************************»»*  ************  ****************************** 

SOEROUTINE    ZVPT 

COSMON     /LCC/     XI  rY1 ,21 ,71  ,  IT  5,  II 32 

CC3H0N    /HNV     a  IB  X  ,M  A  XX  ,  .1 I. if  ,  a  AXY,  /.IN  X  1 ,  1AXI1  ,  MINX 2  ,  MAXX2 

COMMON    /.IN/    IEAU0 

C 

C    FLASH    ALTiaEIIH    ANC    GET     V£L,ALT    AND    THE    SECCNC    L'GHKAND 

C 

CALL    BIN     (3IN  XI  .  .1  A  X  X  1  ,3  5  G  .  ,  2  2  C  C.  ,  1) 

CALL    SPOT     (7  1,21  ,ITS2) 

RETURN 

END 
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C    SOBBOOTINS    SFCT 

C  THIS    RETURNS    AN     X-Y    PAI  S    AND    A    COMMAND    7  ALUS    LI 

C  The    BOUTINS     ALSO    CREATES    A    DOT    AT    POINT    X,!f. 

C»*#»*****>»***************»****  #****»*»  ********************************** 

SUEROUTINc    SPOT     (X,Y,L1) 

SEAL*^     IX,TY,DCT 

INTEGES*4    L,.1,CUT,KEY 

C 

C    o£AC    TB2    C3RSCB    ANE    PICK    up     USER    COMMAND 

10  CALL    GERXYC     (  H  ,  L  ,  K  EY  ,TX.  ,  T  I) 

CALLGAXCTI     ( 1  ,  KE  Y  ,  1  ,LZ  N  ,  COT) 

DCT=uO . 
c 

C    MAHK    THE    SPOT 

C 

CALL    GEGECT     (ECT,TX,TY) 
X-IX 
Y=TY 
c 

C    CCN7EST    THE    CCMMANE    TC    TFE    P50PE3    FORMAT 

C = 

L1=0 

IF     (O0T.EQ.1)      LT  =65 

I?     (OUT.  EC. 2)      L1  =  ot> 

IF     (OUT. EC.. 3)     L1  =  82 

IF     (OUT.  EC- 4)     L1  =  *3 

RETURN 

END 


C    SUESOUTINE    GUNCHK 

C  THIS    SCDP.O"TINE    CHECKS    GUN    LOCATIONS    AGAINST 

c  emplacement    rules. 

C**»*******************  ♦******»*»«:****»***  ****************************** 

SUBROUTINE    GONCHK     (X,Y,IERR) 
COMMON     /TAR/    TASGX,IARGY 

C    COMPUTE    DISTANCE    TC    TARGET 

C 

DISI=SQRT  (  (X-TARGX)  **2    *■      (Y-T  A£G  Y  )  **  2) 

IF     (DIST    .LI.     3000.)     IERR=13 

RETURN 

END 


C  it************************  *************  ********************************* 

C    SUBROUTINE    5 AMCHK 

C  THIS    SUBROUTINE    CHECKS    THE    MISSLE    EMPLACEMENT 

C  AGAINST    GAME    LIMITATIONS. 

SUBROUTINE    SAMCHK     (X,I2RR) 

IERR=0 

IE     (X    .  GE.    60C0.)     RETURN 

CALL    ERRMK     (13) 

IEHR=1 

RETURN 

END 
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£**  *  *********  ****************************************  »  ************  «*  V*  4« 

c  saaaoatiNE   ebhmk 

C  THIS    SUBROUTINE    SENDS    PROMPTS    AND    EfiiiCH    MESSAGES 

C  1C    THE    USER. 

(;******************#********»  **«********************************»'>'»***** 

SUBROUTINE    EBHSK     (IEEE) 

CCKflON    /MN/    IEAOE 

COM  HON    /MN1/    HINX.M&XX.  MI  lilf  ,  a  AXY  ,  MIN  X  1  ,  MAXX1,  MI3X2,  MAXX2 

coaaos  /pah/  x  (2o0)  ,  ?  (2QO) , ;  (200)  ,.:idg  (200)  ,ca  [200i  ,  ;.a  (200)  ,  vel  (200 

CCMHOS    /EA21/    XDOT  (2C0)  ,  TOOT  (  200}  ,2D0T  (200)  ,  HMUH,  388 
common     /ERR/    EKE3X  (3)  ..IKES?  (1  5) 
IF     (IZRR    .GT.     21)     GO    TO     2  10 

C    FLASH    THE     EECMPT     3INECW 

c 

CALL    BIN     [BINX2,aAXXi,27Q0.  ,  Ifcf.  ,  1) 
CALL    G  SF  RC*7 

GG    TO     (10,  20, 30,  40, 50, bO,  70, 8C, 90, 10C, 110,  120,  130, 140, 150, 160, 170, 
1180,190}  ,    IE  S3 


10 

20 

30 

40 

50 

60 

70 

SO 

90 

100 

110 

120 

130 

140 

150 

160 

170 

180 

190 

200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 

tit 
360 

370 


foe 


asif  e 
go   ro 

WHITE 
GO  TO 
HEITE 
GO  TO 
WEITZ 
GO  TO 
a  HITS 
GO  TO 
«  BITS 

go  ro 

aBITS 
GO  TO 
a  BITE 
GO  10 
■  BITE 
GO  10 
aEITE 
GO  TO 
BEITE 
GO  TO 
BEITS 
GO  TO 
aBITS 
GO  TO 
a  BITS 
GO  TO 
aEITE  (6 
GO    TO 


6:220) 


WEITS 
GO  TO 
aEITE 
GO  TO 
BEITS 
GO    TO 

afiiTE 

GC  TO 

aaiTE 

BETURN 
FORMAT 
FQfiHAT 

FORMAT 
FOBMAT 
POEMAT 
FORMAT 
FORMAT 
FCEHAT 
FORMAT 
PC  EM AT 
FORMAT 
FCBKAT 
FORMAT 
FCSMAT 
PORMAT 
PCBHAT 


(6,230) 
20C 
(o ,2^0) 

20C 

(6,250) 
20C 

(b  ,260) 
200 

(6,270) 
20C 

(6  .280) 
2JC 

(6,290) 
20C 

(6  .300) 
20C 

(6,210) 
200 

(6,320) 
200 

(6,330) 
200 

(6,340) 
21  0 

(6,350) 
210 


(6,370) 
21  C 

(o  ,380) 
200 

(6,390) 
200 

(6  .400) 
210 

(6,410) 


X  (HKUfi )  ,Y  (MNUM)  ,1  (KNUM)  ,7EL  (MNUM) 


[25H  HAXiaDfl     ERA  KING     EXCEEDED) 

'  15H  MAX    G    EXCEEDED) 

12H  ALI    TCO    LCa) 

138  ALT    TCO     EIGS) 

;6H    STALL) 

!15H  PCF-UF    TCO    LOW) 

'13H  3  ME    DEC?    LOW) 

|12H  SME     CEOE     HI) 

[15H-  TOC    FAB    FM    TGT) 

[  17H  HCG>5    DEG   TO     TGT) 

[19H  PINAL    BUN<2.33    SEC) 

21H  iiC    HCEIZCNTAL    MOTICN) 

17H  TCC    CLOSE    TO    TGT) 

[23H  ENTER    MISSILE    LOCATION) 

26H  2M1EH    AISCRAFT    MILESTONES) 

(20a  ENTER    GON    LOCATIONS) 
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380 

PCBHAT 

390 

FORMAT 

400 

FCSSAT 

U1C 

fojmat 

END 

(13H    .TAX    LJFT    EXCEEDED) 

(2CH    1AX    THEUST    EXCEEDED) 

(28h    X     CCC?.CI.\Ar2    LESS    THAN    6  000) 

(19H    X, Y,Z, AND    VELOCITY, 4F9.  1 ) 
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C    SUBROUTINE  VALSET 

C  TEIS    SUEEOUTINE    COMPUTES    IBE    FLIGHT    PAHAH2T2ES    FC3 

C  EACH    MILESTONE.     XECT  .     Y  COT  ,    ZCOT,     CA,     aDo,    AND    RA 

C  ABE    COMMUTED    ?OR    CUTr-UT    TO    ?001     AND    MICE    II.     TMD    AMD 

C  ACLIFT    AR2     COMPUTED    FOR    USE    2Y     EERCHK. 

SUBROUTINE    VALSZT     (IZRS) 

CCMSON    /E£R/    X  (20C)  ,Y  (2C0),Z  (200)  ,HDG  (200)  ,CA  (200)  ,RA(200)  ,VEL{200 
1) 

COMMON    /PARI/    XDCT  (200)  ,XDOT  (200)  ,ZDGT  (200)  ,HN0M,aBR 

COMBOS    /P£R2/    T  (200) 

COMMON    /PAR J/    THDfACLIFT-CLHAX.SL.TS AX.CDO.CDK, VMAX1 .7 MAX  2 

DIMENSION    AXC  (200)  ,  A  YD  (2  00)  ,  AZD  (200)   ,  XOD  (200)  ,  TOO  (200)   ,  ZDD  (200) 

GEZ=9. d2 

DX=X  (MNUM)  -X  (MNUK-1) 

DY-X(MSOK)-Y(MNUM-li 

DZ  =  Z  (MNUM)  -Z  (MNUM-1) 

If     ((DX    .NE.     0.)      -OR.     (DY    .HE.    0.))     GG    TO     10 

IEER= 1 2 

RETURN 
10  VAVGL=VAVG 

DISIL=DI£1 

C 

C    LIMII    THE    SPEED 

3IST  =  SORT  (DX**2    ♦    DY**2     *    0Z**2) 

IF    ((    VEL(MNUM)     .  GT.    VM  AX  1)  .  ANC.  (H3S     .10.    0)  )     VEL  (MNUM)  =VMAX  1 

IF     ((     VEL(M.N'UM)      .GT.     VM  AX  2)  .  ASE.  (MBE     .G*.     1))      VZL  (  M  N  UM  )  =  VMAX  2 

VAVG=(  VEL  (MHOM)  +  VEL  (MNOM-  1)  )  /2. 

DT=DI3T/VAVG 

I  (.:NUM)  =1  (M30M-1)  +DT 

C 

C  COMPOTE  AVERAGE  VELOCITY  COMPONENTS 

c 

AXD  (MS  DM)  =VA  VG*CX/UlST 
A YE (MS  UM ) = V  A V  G*  E Y/ C I ST 
AZD (HN UM) = VA  VG*DZ/DIST 

IF  (MNUM  .GZ.  3)   30  TO  40 

C  COMPOTE  THE  PARAMETERS  FUR  THE  INITIAL  LEG  CF  THE  FLIGHT  PATH 

C 

CA  (1)  =ATAN2  (DZ,SOET  (CX**2  +  DY**2)) 

IF  ((DX  .EQ.  0.)   .OR.  (DY  . EQ .  0.))   GO  TO  20 

HDG  (1)  =ATAN2  (D  Y.DX) 

GC  TO  3  0 
20     IF  ((DX  .10.     0.)  .ASC.  (DY  .GT.  0.))   HDG ( 1 ) = 1 . 57 079 

IF  ((DX  .EO.  0.)   .ANC.  (DY  .LI.  0.))   HDG ( 1 ) =-1 . 57079 

IF  ((DY  .EO.  0.   -ANC.   DX  .LT.  0.))   HDG  1 )  =  3.  14  159 

IF  ((DY  .EO.  0.)   .ANC.  (DX  .GT.  0.))   HDG(1)=0. 
30     RA(1)=0. 

XCCT (1) =VEL(1)  *CX/DIST 

YDCT  1  =  VEL  1  *DY/DIST 

ZCCT (1) =V£L( 1) *CZ/D1ST 

RETURN 
UO     DELT=  (T  (MNUM)  -T  (MNUM-2)  )  /2. 

C 

C    CCKEUTE   THE    1CCELEBATICS    COMPONENTS 

C 

XDD  (MNUM- 1)  =  (AXC  (MNUM)  -AXC  (MNUM- 1)  )  /DZLT 

YDD(MNUM-1)=(AYD(MNUM)-AYD(MNUr-1))/DELT 

ZED  (MNUM-  1)  =  (AZD  (MNUM)  -AZD  (MNUM-  1)  )  /DELI 

C    WEIGHT    AVERAGE    OF    TEE    VELOCITY    COMPONENTS 

c 

HCAVG=CISTL/  (CIST+CISTL) 

TDX=  (AXD  (MNUM1/VAVG-AXD  (M  NO  M- 1  )/V  AVG  L)  *HDAVG*AXD(MNUM-1)/VAVGL 
TDY=(AYD(MNUM)/VAVG-AYD(MNUM-1)/VAVGL)*HDAVG+AYD(MNUM-1)/VAVGL 
TDZ=  (AZD  (MNUM)  /V  AVG-  AZD  (  M  SUM-  1)  /  V  AVG  L)  *BD  A  VG  +  AZD  (  MS  UM-  1 )  /VA.VGL 
c 

C    MAKE    THE    WEIGHTED    VALUES    A    U II  IT    VECTOR    ASD    COMPUTE    THE    MILESTONE 

C    VELOCITY    COMPONENTS 

C 

ONIT^SQRT  (TDX*TDX    +TEY*TD?    »     TCZ*TDZ) 
IF     (ABS(UNIT)      .GE.    0.01)      GO    TO    50 
IEHE=1 2 


150 


5C 


60 

70 


30 


HET'JHN 
1DX=TD 
TCY^TD 

tez=td 

XDCTfJl 
YDOT(.1 
ZECT(.1 
IF  (3Q 
CA  (MNU 

GC   ro 

CA  (MHO 

I?  (  (T 
HEG  (.MM 

go   ro 

IP  (  (T 
I?       (X 

IF         T 


X/U 
Y/U 
Z/C 
NUM 
HUM 
HOB 
ST 

a-  1 

70 

M-1 
DX 

u:i- 

90 
DX 

DX 
EY 
DY 


NTT 

NIT 

NIT 

-1)  =  VEL  (HSOM-1)  *TDX 

-1)  =  VEL  (BNUP-1)  «TDY 

-1)  =  VEL  (KHUH-1  )  «TDZ 

TDX*TEX+ICY*TDY)     .GE.    0.01)      GO    TO    60 

)=1.5533 

)=ATAN2  (TDZ  ,SyRT  (TDX  *TDX+TD  Y*TEY)  ) 
.EQ.     0.)     .OH.      (TCY     .EQ.     0.)  )     GO    10    dO 
1)=ATAN2  (TDYrrDX) 


EQ.  0.)  -AND. 

,EQ.  G.)  .a;.d. 

EQ.  0.)  .AND. 

,EQ.  0.)  .AND. 


(TDY  .GT.  0.  )  )  HDG  (MNUa-1)  =1.57079 

(TDY  .IT.  J.))  HDG  (.iliU  :1-1)  =-1.  570  7  9 

(TDX  .IT.  0.     )  dDG  (i:iUd-1)  =3.  14159 

(TDX  .GT.  O.j)  BDG(aNUa-1)=0. 


c— - 

C    C0BE0NE3TS    OF    ACC  EI  ER  AT  ION    IN    THE    AISCHAFT    COORDINATE    iYSTS!! 
C 

90 


C 

c  cc; 
c 


CASIN=SI.N  (CA  («NU:i-1)  ) 
CACCS=COS  (CAiaKOB-1)  ) 
HDSIN=SIN(HDG(»NUB-1)) 
HDCOS=CGS  (HDG  (HNUB-1 ) ) 
A11  =  XDC  (SNUM-  1)  «dLCCo*CAC03 
A21=-.CDD  (MNOa-1)  *EJ3SIN 
A31  =  -XDD  <3NUi1-1)  *fcCCCS*CASIll 
A12=YDD  (BSU3-1)  *HESI3*CAC03 
A22  =  YDD(aNU.1-1)*HCCCS 
A32*-IDJ  (aNUM-1)  *EJ3SIN*CASIJJ 
A1J=(ZDD  (MdUa-1)  +GEE)*CASIN 
A  2 3=0. 

A33=  (zdd  jaima- 1)  *gee)  *cacos 


EUTE    ACCELERATION    eASALLi 


AN 


IPSNDICULAfi    TO    /LIGHT    ?AT! 


ACLIFX=  (SORT (  (A2  1+A2 
IF     ( ACS ( Ai1+A^2+A33) 


100 
110 


Tat=(A11-»A12*A13)/GEE 

-,?)**2t(A31  +  AJ2*A33)  **2)  )  /GEE 
-OS.    0.0  1)     GO    TO     100 

a  a  (anoa-i)  =  i.  57079 

a  A  (HHOH-1)=AIAH2  (  (A2  1  +  A22)  ,  ( A3  1  +  A32+ A33)  ) 

CALL    SRRSK     (22) 

EETURN 

END 
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S    TO 


C    SCBHOOTIHS     EflBCHK 

C  THIS    5UEROUTINE     ZVALUATZS    TH£    FLIGHT    PARAMETER 

C  ZKSURE    THAT    THEY    !*EZT    THE    DZSIiED    SIMULATION     L 

Q  *»    *  *  *  »  *«it4*  «>4»«4>tm<»»««tJ»»«;itt«t»»*l.t«i«v»a»iHJ»J«;»s»<';«J 

SDEROUTINE  SSRCHK  (II3R) 
CCMMGN  /FAB/  X  (2  0C)  ,  X(200),Z  (200)  ,HDG(200)  ,CA(200)  ,RA(200)  ,  VEL  (2C0 
1) 

common   /pari/   xdotj2c0)  ,  ydot  (2c0)  ,zd  ct  (200)  ,  finum,  3bk 

common   /par2/   t  (200) 

common    /tap./   iargx,targy 

common   /far3/   tm  c,  aclift  ,  clm  a  x  ,  «l  ,  tm  ax  ,  cdo  ,cok 

common    /pa34/   at  p  ma  x  ,ht  mi  n,  ht  f!  a  x  ,  3pd  mi  n ,  g  max  ,  popmin 

data  tmsav/- 1 ./ 

dx=t.\rgx-:<  (m:ium) 

dy-targy-?  (mnum) 

dist=sqrt  (dx**2   *  dy**2) 

C 

C    INITIALIZE    ?OPALI    Al>D    IMSAV 


10 


20 

C 

C 

30 

C 
40 

50 


IF     ((MNUM.N2.2)     .  ASD.  (TMSAV.  SE.  -  1 .)  )      GO    TO    10 

PCPALT^O. 
TMSAV=TMAX 

IF     (MBR.EC..0     .AND.    TKAX  .  KE.  TMSAV)     TMAX=IM3AV 
CALL    ZRRMK     [23) 
IF     (M3a    .GE.      1)     GC    TC    20 

IF     ((DI3I    .LI.     PCEaiS).OR.      (Z  tKSUM)      .LT.     APPMAX)  )     i 
IERR=u 
RETURN 

IF     (DI5T. 12.  PCEMIN    .AND.     Z  (  M  N  DM)  .  3T.  POP  ALT)     POPALT^ 
IF     U(MNUfi)      .GE.     HTMi:.")      GC    TO    30 
IERR=3 

FET'JRN 
Z  (MNUM)  =HTMIN 
IF     (Z(M.SUM)     .  LZ.     ETMAX)      ~0    TO    40 

ISRa=4 

RETURN 
Z  (MNUM)  =  HTM  AX 
IF     ('/EL  (MNUM)      .GE.    SPi 
IERR=5 
RETURN 

IF     (MNOM     .EQ.     2)     RETURN 
IF     (ACLIFT    .LE.    GMAX)     GO     TO     6  0 
IE3R=2 
RETURN 


TO    20 
(MNUM) 


J)     GO    10    50 


C 

C    CCBPUTE    DRAG    AND    LIFT    FCFCZS 

C— 

oO 


70 


80 


RH0=0. 
IF  (Z( 
BH0=0. 
CL  =  2*A 
IF  (CL 
IEfiR=1 
RETURN 
DH=(  (C 
TW=T3D 
IF  (  (T 
IF  (T* 
DH= (RH 
IF  (TM 
IF  (12 
IF     (MN 


0  256* EXP  (-0.  10  2*(Z  ( MNUM) /1000. )  ) 
MNUM)      -GE.     10670.)      GO    TC    70 
00793*EXP  (-0.1  56*  (Z  (MNUM)-106  70.)/1000.) 
CLIfT/  (5F.0*(VEL(MNUM)**2)/SL) 
.LE-    CLKAX)     GC   TO    dO 


90 

C  — 

C    EVALUATE    3CMEING    RON 

C 

DT=T(S 


I0*CDK*CI*CI)  /CL)  *  ACLIFT 
+  D  * 
H    . 
.G 

0*  ( 
D+C 
RH 
UM 


0.  )  )     GO    TO    90 


LE.     TMAX)     .AND.      (T  '<i     .I 

1.    TMAX)     IEEH=18 

VEL(MKOM)*»2[/«L)*  ( 0.C5+CD0 +CDK*  (CL**2)  )  /2 

W    .LE-    0)     IER3=  1 

.NE.     C)      SET  URN 

.NE.     BER)     RETURN 


TGIHDG 

•II     (TG 

DX  =  X  (M 

ai-t  (a 

ACHDG= 

IF  (  A 
HEGLMT 
IF  (PO 
IEBR=o 


NOB)  -T  (3N0M-1) 

=  ATAN2  (D3,DS)  *57.  2  9  578 

THDG    .LT.     D.)     TGTHDG=TGTHDG*360. 

NUM)-X  (MNUM-1) 

NUM)-Y(BNUM-11 

ATAN2 (DY,CX) *57. 29573 

CHDG    .LT-    J.)      ACHDG-ACHCG+360. 

=  AES  (TGTECG-ACFDG) 

PALI    .GE-1OG0.)     30    TO     1CC 
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RETURN 
100  I?     (2(HNUM)     .GE.1G0.)     GO     TO     11C 

IE3E=7 

BETURN 
110         IF    (ZMNCH)     .LI.    2000.)     GC   TO    120 

HE10RN 

120  IF     (DIST    .L£.     2000.)     GO    TO    13C 

IZ?.E=9 

BITOHS 
130  IF     (HDGLM1    .L2-    5.)     GO    TO    140 

IZER=10 

RETURN 
140  IF     (DT    .  GE.     2.33)     GO    TO     150 

IEHE=1 1 
15  0         1HAX=1.2*TMAJC 

RETURN 

END 
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C    SUBBCUTINE    PTHPLT 

C  THIS    SDEHODTIME     KCTIJI2S    THE 

c  stone  has  been  accepted  amd  t 

C  POINT    IN    A    TEHPOEARY    DISK    EIL 

^**»#**»*# *******»**»*»»»*******»*****»*** ****** 

SUBROUTINE    PTHPLT 

CCKMCN    /PAR/    X  (22C)  ,  Y(200)  ,Z  (2CQ)  ,HDG  (200) 
1) 
CCMaON    /PARI/    XDOT  (200)  ,YDOT  (2C0)  ,ZDCT  (200 
CO a MO N     /HN/    I3AUD 

CCaaON    /aN1/    aiHX,aAXX,HINY,MAXY,aiNX1,aAX 
REAL*4     1X1  ,TY  1  ,1X2,TY2 
LOGICAL    *1CHAHS(12) 
TX1=X  (rfNCa-1) 
TX2=X  (.INOa) 

TYi=Y(aNia-i) 

TY2=Y  (SNUM) 
c 

C    IDENTIFY    THE    HAP,     LFAW    AND    LAHEL    TEE    FLIGHT    LEG 
c 

CALL    BIS     (MINX,aAXX,  18000.,  12CC0.  ,  0) 
CALL   G3HCWE     (TX1  ,TY1  ) 
CALL    GBDEAW     (TX2,IY2) 
IF    (    SNUB    .GI.99)     I*  =  3 

if    ((aNua  .gt.9)    .an:,  (hnuh.  li.  100) )    iw  =  2 

IF     (  :iNUM     .L£.     })      l'«i  =  1 

CALL  GAaITC     (  1  rSNOM,  IW, CHARS) 

CALL  GSCHAR     ( T X2 , 1 Y2  ,2.  ,  0  .  ,  I W  ,CH ARS) 

CALL  G5FHCE 


****4t*********5********* 


USES  THAT 
HEN  SAVES 

HIS  aiLE 
THE  SUCC 

ESS 

F0L 

**«****»******■««*»**»*»* 

,CA(230)  , 

a  A  { 2  0  0 )  ,  V 

2I( 

20Q 

>  raNua, mb 

o 

xi,amx2. 

8AXX2 

C    SAVE    THE    ?CIM    IN     *T;?P    CAT  A' 

c 

white    (19,10)    x  c*mj:i)  ,y  (a  sua)  ,z  (a .sua)  ,  vzl  (a.sua)  ,  ass 

RETURN 
10  FCaaAI      (4F10.0,I3) 

END 


C    SGBHO0TIN2  AIHPT 

C  THIS    5UERO0TINE    aARKS    A     LINE    ?ROa    THE    CURRENT 

C  AIRCRAFT    POSITIOt*    TO    THE    TAGET    AS    A    USEE    AID    IN 

C  ALIGNING    3038    RELEASE    POINT. 

SOERGUTINE    AiaET     |I) 

COaaON    /TAR/    TASGX,IAHGY 

CCaaON    /EAR/     X  (200)  , Y  (200) 
R2AL*4    TX,TY  ,1X1  ,  IY1 

TX=X  (I) 

TY=Y(I) 

TX1=TAjJGX 

TY1=TARG  Y 

CALL    G3LT     (1) 

C 

C    HCVE    TC    CUE2FNT    aiLZSTCNE   COORDINATES 

CALL   SB3CVE     (TX,TY) 
c 

C    DfiAW    DASHED    LINE    TC    TARGET 

CALL    GBDEAW     (TX1  ,TY1 ) 

CALL    G3LT     (0) 

RETURN 

END 
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C    SU3D3UT'NS     ETFIN 

C  THIS    SUEROOTINE    FEOUESTS    TEE    USES    OPTIONS    AND    CLOSES 

C  IKE    GRAPHIC    SUBROUTINES. 

SUBROUTINE    ELFIN     (LAST) 

caauoH   /cet/  icus,ir  nch,  iext,  isam,imp,ker 
common   /as/  ieaoi: 

COaHON    /HN1/    SIilX,KAi2,3ISTfaAXY,«1Ii!lXl,aAXX1  ,SI^X2,  3AXX2 

c 

C    CLOSE    GRAPHICS    ROUTINES 

c 

CALL    DSTEFM 
c 

C    OLD     (LAST=0)     OB    NEW     (LASI=1)      FLIGHT    PATH? 

C 

IF     (LAST    -EQ-     C)     GO    TO    20 
C 

C    REQUEST    USER    OUTPUT    CETICNS 

10  SHITS      (6,40) 

READ     (5,4)     LAST 

CALL    FRTCMS     MCLaSCEB    ») 

IF     (LAST-GE-2     .OH.    LAST. LI. 0)     GO    TO     10 

LAST=1 *32*LAST 
20  WHITE     (6,50) 

SiHITE     (6,o0) 

READ     (5.*)     IPHCH 

CALL    FHTCaS     ('CLaSCSN    •) 

C    IF    MILESTONES    CASE    EFCM     CISK,     3ETU3N    END    OF    FILE    MARKER 

c 

IF     (LAST    -EQ.     C)     LAST=S3 

IF     (IPNCH    .EQ.     0)     RETURN 

IF    (IPNCE.EQ. 2)     GC    TC    30 

WRITE     (6. 70) 

READ     (5,*)     IEXT 

CALL    FRTCMS     ('CLRSCRN    ') 

IF     (I? NCH    .SO.     1)     RETURN 
30  WRITE     (6,30) 

READ     (5,  *)     ISAM 

CALL    FRTCMS     ('CLRSC5N    * ) 

IF     fflSAfl    -LT.     1)     -OR.      (ISA  a    -GT.    7))     GC    TO    30 

RETURN 
40  FORMAT     (51H    ARE    YCU    FINISHED     WITH    THIS     FLIGHTPATH:     0=NO;     1=YES) 

50  FORMAT       U3H    OUTPUT    FILE:     0»NO    OUTPUT  ;     1=?001     FILE    ONLY) 

60  FORMAT     (51H  2=MICZ    FILE    ONLY;     3=?00  1     i    MICE    FILES) 

70  FORMAT       U9H    EXTENCEE    OUTPUT:     0-NOT    WANTED;     1=EXTSNDED    OUTPUT) 

30  FORMAT     (2<9H    MISSILE    TYPE     BETWEEN     1    AND    7) 

END 
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_-ajmj«*n«»«*ti*3«  a*>»»*4»»i»(«<i««u»*»«  miM»*»»>«»«tt*T4««^  »*t»s»it 
C    SUEBGOTINE    PRESET 

C  THIS    SOE20UTINE     -BITES    THE    P001     AND    MICE    II    FILES 

C  FCE    THE    US E3 . 

SOEBOOTINS    PRESET 

COMMON    /EA3/    X  (20  C)  ,  Y  (2  30)  ,  2  (200)  ,jDG  (200)  ,CA(230)  , RA  (200)  ,  VEI  (200 
1) 
C0M30N     /PARI/     XDOT  (2  CO)  ,  YDO?  (200)  ,2  OCT  (200)  ,  MNUrt,M5R 
COMMON    /PAR  2/    T  {200),XGUN  (7)  ,  YGUN  (7)   ,ZGUN  (7)  ,  XSAH  ,  ISkii  ,2S  AH 
COMMON     /CPT/    ICON  .IPNCH  ,  IEX7  .  ISA3  ,  IM P , X E E 
COMMON    /NAM/     I  8  AM  1  (  2)  ,  I'..'  A  .12  (  2)  ,IUNR  ,  IAN  3  ,  IDEST 
DIMENSION    X1  0  (20J)  .  5£  10  (20  J) 
DIMENSION    BCSTAE  (  1030)  ,  TINK  (  1C) 
DIMENSION    VAT1  N2  (208)  ,7ATJ  (20c)  ,  7AT5  (208) 
c 

C    VOLNEEABLZ    AREA    TABLE    VS    TYPE    1     A  M:    2    JEAPCN3 

C 

DATA    VA T  1N 2/2*. 46 45, 6*7. 1 07, 2*. 6 56 8, 6*5. 551, 2*. 89od, 6*5. 574, 2*. 6 56 


57, 2*. 6 96 8, 6*5. 574  ,2*. 656 8, 6*5. 55 1,2*. 6 968, 6*5. 574, 2*. 6 56 8, 6* 7. 35 7, 
62*.  o9  63,  6*5.  574,  2*. 46  45,  6*7.  10  7/ 
c 

C    7ULNEEABLS    AREA    TABLE    7S    TYPE    3     WEAPONS 

DATA  VAT3/2* 12.5 4. 6* 13. 47 ,2*9. 653 .6*10.51 .2*9.53  9,6*11.15,2*12. 64, 
16*14. 78, 2 *9.b39,o*11. 15, 2*9. 852, o*10. 51, 2*9. oJ9, 0*11.15,2*12. 64, 6* 
214. 78, 2*9. 639, 6*11.  15,^*1. 394, 2*4.  76 2, b*6. 24  0, 2*5. 342, 6*7. 432, 2* 4. 
3752,  6*  6. 24J, 3*1. 394, 2*4. 7  b2, 6 ''6.240, 2- 5. 34,., 3*7. 432,  2*  4. 7o2,o*0.  24 
40,  2* 9. 85 3, o*10. 51, 2* i.639, o*11. 15, 2*  12. ou, o*14. 78, 2*9. 639, o*11.  15, 
52*  9.  85  3, 6*10.  51, 2*9.  639, 6*11. 15, 2*12. o4, 6*14. 73,2*^.63  9, 6*11.  15,2* 
612. 54, 0*13.47/ 

C 

C    VULNERABLE    AREA    TABLE    VS    TYPE    5     WEAPONS 

C 

DATA  VAT5/3*j5.J7,  3*43. 22, 8*47. 10, 8*62. 53, 5*47.  10, 3 *4J. 22, 3*47.  10, 
18*6  2.  5  3,  3*4  7.  10,  6*5.  76  1,3*27.  45,  o*^3. 07, 3*^.7.45,3*5.70  1,3*27.  45,  3* 
233.  07,  3*  27.  45, 8*5.  76  1,3*4  7.  10,6*  b  2.  53, 8*4  7. 10, 3*43.  22,  8*47.  10, 3*  62 
3. 53, d*47.  10,3*55.37/ 

C 

C    3AEAR    CROSS    SECTION    IA3LS 

C 

DATA  RCSTA3/ 19*1 CCO. , 19  *  1 00 .,  1  9* 1 0. ,  1  9*  1  0 ., 1 9*  1  0. , 1 9* 1 00.  ,  1 9*  1  0 0 0. 
1,367*0.0/ 

C    CALL    EEriSET    SUPPRESSES    ANY    P0SSI3LE    UNDERFLOW    PROBLEMS    THAT    MAY 
C    RESULT    FROM    MANIPULATION    OF    SCENARIO    PARAMETERS. 

C 

C  CALL    ERRSET     (  2  C8  ,  50  ,  -  1 ,  1  ,  1) 

C  JAfl=0 

C 

C    CARD    2    TIME    INCREMENT    CALCULATION 

C 

TINC=T  (MNUH)  /  1000. +0.00  08 
c 

C    CAED    6    TIME    INCREMENT    CALCULATIONS 

c 

TINKI=0 

DO    10     1=1,9 

TINK (I) =TINKI+T  (MNUM)/10 

TINKI=TINK(I) 
10  CONTINUE 

C 

C   /////***** PUNCH    PROGRAM*****///// 

C 

C 

C    OPTION    TO    PUNCH    THE    P001    CARD    DECK    OR    MICE-II    CARD    DECK 

IF    (IPNCH.EQ.2)     GC    TO    30 

C 

C    COMMENCE    PUNCHED    OUTPUT    OF    THE    PQ01    CARD     CECX. 

C 

C 
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C    THE    JCL    CASDS. 

C 

WBITS     (18,o0)      ISAN1  {  1)  ,  IN  AMI  (2)  ,IUNS ,IANR,INAai  (1)  ,INAH1  (2)  ,IUNH 

IF     (IDESI.ZQ.2)      «RITS    (18,70)      IUNR 
WBITE     (It, 30) 
WBITS     (18,90) 

wans    (18,100) 

3  BIT  2       18,110 

•  3  ITS     (18,120) 

WBITS     (18,130) 

WRITS      (18,140) 

SEITE     (18,150 

WRITS     (18,160) 

C 

C    LEADING    BLANK    DAIA    CARD    SIGNIFIES     aADAc     HASHING    ANGLE    OS    Z  IRQ  . 

C 

c 

C    THE    OUTPUT    TITLE    CARE. 

c 

WBITE     (18,190) 
c 

C    CABD    2 

C 

WBITE     (18,170) 

WRITE     (18,203)     I(ENOB)  ,TI3C 

C 

C    THE    2A   CARDS     (HILESTCNES)  . 

C 

DO    20    I=1,.1NU« 

WBITS     (13,210)     T  (I)  ,  X(I)   ,Y(I)  ,Z(I)  ,XDCT  (I)  ,i  DOT  (I)  ,  ZEOT(I)   ,  HDG  (I] 
1CA  (I)  ,3k  (I) 
20  CONTINUE 

WSITE     (18,230) 

C 

C    CABD     3     (GUN     EMPLACEMENT    CARD)  . 

c 

WBITE     (18,240)     XGUN  (  1)  ,  YGUN  (  1)  ,ZGUN  (  1) 
c 

C    CABD    4     (GUN    TYPE)  . 

C 

WBITS     (18,220) 

BRITS     (16,250) 

C 

C    CARD    5 

C 

WRITE     (18,180) 

WBITE     (18,260) 

C    CABE    6 

C 

WBITE     (18,270) 

WRITE     (18,230)      (  UN  K  (I)   ,  1  =  1  ,  9  ) 

C 

C    CARD    7     (VULNERABLE    AREA    TA3LS    VS    TYPE    1     AND    2    WEAPONS) 

C 

WRITS     (18,290) 

WBITS       18,j00 

WBITE     (18,310)      (VAI1  N2  (I)   ,1=1  ,203) 

C 

C  CARD  12  (EXECUTE  RUN) . 
C  EXTENDED  OOTPUT  OPTICS 
C 

WBITE     (18,320) 

IP     (IEXT-NS.1)      WRITE     (13,340) 

IP     (ISXT.EQ.  1)     WHITE     (13,330) 

C 

C    THE    BEHAINDEB    OP    THE    CARES    INTRODUCE    NEW     GUN    LOCATIONS,     GUN    TYPES 

C    AND    VULNERABLE    AREA    IABLZS    TO    BE    EXECUTED    BY    Th£    PROGRAM. 

C 

WBITE     (18,230) 

WRITS     (18,240)      XGUN  (2)  ,  YGUN  (2)  ,ZGUN  (2) 

C    EXTENDED    OUTPUT    OETICS 

C 

WRITS     (16,320) 

If     (IEXT.NE.1j      WRITE     (13,340) 
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IF     (IEXT.EQ.1)     WHITE     (13,330) 

WRITS     (16,230) 

WHITS     (18,240)     XGUN  (2)  ,  YGUN  (3)  ,2GUN(  3) 

MRUS     (18,220) 
a  BIX 2       18,350 


C    EXTENDED    OUTPUT    OPTION 

C 

WEITE     (18,320) 

IF     (IEXT. HE- 1        '.HITS     (18,340) 

IE     (IEXT.EQ-1       SiSlTE     {13,330} 

WHITS     (18'240)      XGUN  (U)  ,  '/GUN  (4)  ,ZGUN  (  4) 


C 

C   EXTENDED  output   option 
c 

WHITS  (18,320) 
IF  (IEXT.HE.1j 
IF  (IEXT.EQ.  1) 
W  RUE  (18,230) 
WEITE  18,240 
SPITS  16,220 
WBITS     (18,360) 


SHITE     (18,340) 
WHITE    (13,330) 

XGUN"  (5)  ,  IGOH  (5)  ,ZGOH  (  5) 


C    CABD    7     (VULNEEABLE     JISEA    TA3LE    VS    TYPE    3     WEAPONS) 
c 

WHITS  (18,290) 
WRITE  (18,400) 
WBITS     (18,310)      (VAT3  (I)   ,1  =  1,  2C8) 


C—  • 


C    EXTENDED    OUTPUT    OFTICN 


WRITS  (18.320) 
IF  (IEXT.KE.  1) 
IF  (TEXT. EO. 1) 
WHITE  (16,230) 
WRITE  (18,240) 
WBITS  (18,220 
WRITS     (18,370) 


*aiTE     (18, ?4Q) 
K3ITE     (13,33  0) 

XGUN  (6)  ,  ICGUN  (6)  ,ZGUN  (6) 


EXTENDED    OUTPUT    OPTION 


WRITS  (18,320) 

IF     (IEXT.  HE.  1 

IF 

WBI 

WBITS  (18,240 

WHITS  (18, ..20 

WHITS  (18,3d0 


(IE 

(IEXT.EQ. 1 

t  2    ' 1 


(18,230! 


WRITE 
WEITE 


(18,  340) 
(1d  ,330) 


XGUN  (7)  ,  IGUN  (7)  ,ZGU!i  (7) 


C    CABD    7     (VULNERABLE    AEEA    TABLE    VS     TYPE    5     WEAPON) 
C 

WHITS  (18,290) 
8BITE  (18,410) 
WRITS     (18,310)      (VAT5  (I)  ,1=1  ,208) 

C    EXTENDED    OUTPUT    OPTION 

■  RITE     (18,320) 
(IEXT 

') 


IF     (IEXT.NE.  1  WRITE     (13,340) 

IF    jIEXT.EQ.1j  SRITS     (13,330) 
WEITE     (18,390) 

IF     (IPNCH    .EQ.  1)     EETUBN 


C    FORMAT    STATEMENTS 

C 

30  CONTINUE 

C 

C    CCMHENCS    PUNCEED    OUTPUT    CF    THE    HICE-II    CARD    DECK 

C.        CHECK    FOB    VALID     SISSILE    DESIGNATION    NU3BER    FOB    MICE    II 

IF     (ISAM.L2.7.  AND.ISAM.GE.1  )      GC    TO    40 

EETUBN 
c 

C    THE    JCL    CAFDS 


158 
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WHITS     (17,420)     INAH2  (1)  .I3AH2  (2)  ,  IU  H  B,  I  A  NB  ,  IMAM2  (  1 )  , INAH2  (2)  ,  10 NE 
IF    (IDEST.EQ.2)     WRITS    (17,430)    IUNR 
WHITE     (17,440) 


WBITE     (17,450, 

WHITE       17,460 

WBITE     (17,470] 


C  — 

C    THE    OUTPUT    TITLE    CARDS 


WBITE     (17,480) 
WBITE     (17,490) 

C  THE  ?RCBLE:i  SUM  INE'JT  CAEDS,  CHECKING  FOB  IYPS  OF  !11331i 
C  TC  INPUT  TO  aiCS  II 


WHITE  (17,500) 

IF  (ISAM.EQ.  1)  WRITE  (17,6701 

IF  (ISAH.EQ-2)  pdlTE  (17,680 


IF  (ISAH.EQ.3)  WHITE  (17,690) 
I?  (ISAa-EQ.4)   WRITS  (17,700) 
IF  (ISAS.EQ.5)  WRITE  (17,710 
IF  (ISAa.EQ.6)  SaiTE  (17,72  0) 
IE  (ISAH.E\i.7)  WRITE  (17,730) 

C 

C    THE    ES3K    CALCULATION    CARCS 
C— 


WHITE     (17,510) 
WHITE     (17,520) 


C  THE  RADAR  CBCSS  SECTICS  TABLE 


WRITS 

(17,530 
(17'540 

WRITE 

WRITE 

(17,550 
(1 7  ,  5  o  j 

WHITS 

WBITE     (17,570)      (SCSI AJ (I )   ,1 =  1  ,  133) 


C    THE    SIMULATION    TIME    EARAMET) 
C 

BBITE     (17,580) 
WHITE       17,590 


C    TEE    3IS3LS    LAUNCHER    LOCATION 

c 

FTEAC=3.  28084 

WRITE     (17,600) 

XFSArt=  XS &H*FTE AC 

YFSA:i=  Y3AJ1*PTF  AC 

ZFSA3=2:S  AM*r'TFAC 

WBITE     (17,610)      XFSAir  ,  YFS  A  fi,  ZFSAS 

Q 

C    THE    TARGET    TRAJECTORY 
C- 


WHITE     (17,620) 
WRITE      (17,630)     SNCH 


C    THE    SI1EST0NE    CARDS 

C : 

DO    50    1=1    *.SOB 
X  (I)  =X  (I)  *FTFAC 

1  I)  ={  (I     *FT?AC 

2  (I    =Z    I    *  FTP  AC 


7EL  (I)  =VEL(I)  *FTFAC 

WRITE     [17,640)     T  (I)  ,  X  (I )  , 

CONTINUE 


.   ,1(1)  ,Z(I)  ,VEL(I)  ,CA  (I)  ,SA(I)  ,  HDG(I) 

C 

C    END    OF    PUNCHED    CARES 

C 

SHITS     (17,650) 

WRITE     (17,660) 
C 

BE1URN 

C 

C    /////*****    FCR.1AI    STATEMENTS     ♦****///// 
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60 

70 

80 

90 

100 

no 

120 
130 

mo 

ISu 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
273 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 

400 
410 

420 

43u 
44  0 
450 
460 
470 
480 
490 

500 
510 
520 
530 
540 
550 


560 

570 
580 
590 

600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 


FORMAT 
FORMAT 
FCEMAT 
FORMAT 
F0  3MAT 
FGE3AT 

FoaaAT 

FC3MAT 
FC3MAI 

format 

PC  EM  AT 
FORMAT 
FC3MAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FCEMAT 
FORMAT 
FCBMAT 
FORMAT 
FOSMAT 
FORMAT 
FCaflAT 

format 

FCEMAT 
FORMAT 
F  C  B  M  AT 
FORMAT 
FCEMAT 
P03MAT 
PCRMAI 
FORMAT 
FORMAT 
FOS~.iT 
FORMAT 
F  C  EM  AT 
FORMAT 
FCEMAT 
FORMAT 
FOSMAT 
FORMAT 
FCEMAT 
FOSMAT 

1) 
FORMAT 
FORMAT 
FCEMAT 
FORMAT 
FORMAT 
FORMAT 

160.,/, 7 

24H130.  , 
PGSMAT 

1 ,3H90.) 
FCEMAT 
FCEMAT 
FORMAT 

10.) 
FORMAT 
FCSMAT 
FORMAT 
FCHMAT 
FORMAT 
FCSMAT 
FORMAT 
FCHMAT 
FCEMAT 
FORMAT 
FCHMAT 
FORMAT 
PORMAT 
FCEMAT 
EUD 


2H//,:A4,6H  JOB 
19H//*BAIN  CFG= 
16H//     EJCF.C    PGK» 

'42H//STSPLIB  OD 
U7H//GC. F107F03 

'4  1H//     CCE=(HECF 

;22H//GC. ET09FQ0 
25H//GC.F  106E00 
18U//GC. iTC5r00 
1  131  ,  1  ,0,0, C  ,0) 

'2H01) 

!2H02 
1  HO  5 ) 

!4  2H  A 1 3C  RAFT 

7H0,  12,0,  ,F7.2, 
10(F7.  1,  U)  ) 
2KJ4) 

|  2  HO  3) 

3  (1X,F7.  C)  ,  1  CH 
19H0,  1,  1,  1,1,1, 

[7H1.1  ,1.0) 

3H1.9 

!2H07) 

[49H 
8F3. 3) 
2H12) 

[  13H1,  1,  1,1,  1,1, 
13H0, 0,0,0, 1,1, 
20 HO  ,  2,  1,  1,  1  ,  1, 
2CH0,3,u,4,1     1 

t2CH0,3,j,4,1,1, 

[2Cao,5,3,2,1  ,1, 

(2H/*) 

[43H  S0ISESA3 

4  2  H  iOIKEP.Ai3 
(2H//,2A4,6H  JOB 
(1SH//*MAIN  OHG= 
(2^H//  EXEC  ?GM= 
(44H//STEPLI3    00 

22H//FTC6FO0  1 
(15H//FTC5F00  1    D 
(2H01) 
(55HAE    225  1       *** 


I  ,14,  1H,,I4, 2H)  ,  ,1H'  ,2A4,1H     ,I4,2H?») 
SPGVN1  .  ,14,  1HE) 
?1  AD) 

DIS?=SHR,DSN=MSS.F05  59.PI?SAV) 
1     DD     0NIT  =  SYSDA,5?AC£=]CYL,  (  1,  1  ,)  )   ,) 
M=VBS , LRECL=404,3LKSIZ^=323o) ) 
1     DD    DUI-MY) 
1     DC    SYSGUT=A) 
1     DD     *) 


CCMBAT    SURVIVABILITY     SCENARIO) 
9H,100CCQ.,,F7.4,1H/) 


0.0,360.0) 
0.  0,  50.) 


,9  (1X,F7.3)  ) 

VULNERABLE    AH2A    TABLE    VS    TYPE    1     AND    2    WEAPON'S) 


D 

1) 

0.  0,  50  .0) 

0.  J, 50.0} 

0 .  J ,  5  0  .  C) 
J.  0,50.0) 

IE    AREA    TA3LE     7S    TYPE    3     WEAPONS) 
LE    .-.3EA    TABLE    VS    TYPE    5    ,'EAPC.J) 

( ,14.  1H, ,14,  2ri)   ,,1n',2A4,1li     ,14,  2  HP') 
NPGVMl  .  ,14,1  HP) 
SICE, 3EGION=1 6CK) 

DSN=aSS.F055 9.MICESAV, DI3?=SHR    ) 
DD    SYSCDT  =  A) 
D     *) 


♦♦SURVIVABILITY    SCENARIO*****    SAM    ENCOUNTER 


7*10.2,/, 7F1  C.2,/,5F1C2) 

'2H09) 

;  7  X, 3  HO.  5, 7X,  3H0  .  1  ,7  X  ,  3H9.  0,  7  1,3  HO  .  0  ,  3X ,  2  HO.  ,  7X  ,3H30  .  ,  8X  ,  2H 

2H11) 
2X ,  Fc 
2H12) 

9  x ,  1  a  1 

F7. 1 ,4 

2H20) 

2H/* 


9  X  ,  1  H  1 

'9X,  1H2 

'9X,1 H3 

'9X, 1 H4 

9X,1H5 

9X,1 H6 

9X,1 H7 
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£<*****»****<**************************************************«******** 

C    8LCCK    CATA 

C**^********************** *******  *************************************** 

BICCX    DATA 

COMMON  /HN1/    MINX  .MAXX.MT  NY  , MAXY,MINX1,  MAX  XI  , MINX 2,  MAXX2 

COMMON  /EER/    MK EB X ( 3) ,M K ERY ( 2G) 

COMMON  /PAR/    X  (20  0)  ,  *(200)  ,Z  (200)  ,HDG  (2  00)  ,  C  A  (  2  JO  )  ,  E  A  (  200  )  ,  7  EL  (200 
1) 

COMMON  /PAP1/     XDC1(200)   ,  Y  DOT  (200  )  ,  3D  CT  (  200  1  ,  All  Urt  ,  MB  3 

COMMON  /PAR2/    T(200)   ,XGUN  (7)  ,  XGUN  (7)    ,<.G'JN(7)   . XSAil.  YSAS  ,Z3  AH  ,G3  (7) 

COMMON  /FAR3/    1HD  -AC  LIFT  ,  CLflA  X  ,'i L.TM  AX,  CDO  ,CDK,  VMAX  1  .  7HAX2 

CCMMON  /FAR4/     AFEHAX  ,HEH  IS,  ST  MAX  ,  5?  D  Mil,'  ,  G  MAX  ,  ?0?  MIN 

CO  MHO  M  /TAR/    TARGX,TAR3Y 

C     MAE    WINDOW     X     COORDINATES 

c 

DATA  MINX/100/ 

DATA  MAXX/3700/ 

C 

C    ALIIM2TER     WINDOW     X    COORDINATES 

C 

DATA    MI NX  1/3 7 2 5/ 

DATA    5 AX X 1/39 25/ 

C 

C  ERCMETING  WINDOW  X  COORDINATES 

c 

DATA    MINX2/3950/ 

DATA    MAXX2/40CC/ 

C 

C    CCMMON    Y    COORDINATES     FO  P    THE     THREE    WINDOWS 

c 

DATA    MINY/400/ 
DATA    MAXY/2300/ 
c 

C    ZR5CB    MESSAGE    COORDINATES 

c 

DATA    MK2SX/64C,34C, 10/ 

DATA    MKERY/16C,14C,120,100,90,60,160,140,120,100,30,60,1bo,14G,120 
1,100, 30,60,13 0,40/ 
c 

C    PREDETERMINED    W2AFCN    EMPLACEMENT     PARAMETERS 

c 

DATA    XGUN/14300.  ,  162C0.  ,  1  3600  .,  13400.,  11300. ,156  00., 12  800./ 
DATA    Y GUN/9000. ,3200., 720 C.  ,3000. ,9 700. ,10 90  0. ,7500./ 
DATA    Z GUN/4  0.  .40.  , 20.  ,2  J.  ,50.  ,SC.,20  ./ 
DATA    XSAM/12  00C./  .'i  SAM/6  GOO.  /.ZS  AH/5  0./ 
DATA    GR/1O0  0.  ,  1000.,  140  0.  ,  WOO. ,2  50  0.,250C,  25  00./ 
c 

C    SISULATION     PARAMETERS 

C 

DATA    CLMAX/1. /,WL/100./,S?DMIN/90./, GM A X/6 ./ , H TMI N/60. / 
DATA    iITMAX/2  0  5C-/,AFEMAX/45  7./.TMAX/Q.4/,CDO/0.015/,CDK/Q-  1/ 
DATA    7  MAX  1/2 6  0./, 7MAX2/3 10. /, EOPMIN/6000./ 
DATA    TA3GX/140C0./,TA3G Y/7220  ./ 
END 
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APPENDIX  G 
PROPOSED  I BMP IP  LISTING 

C    HA  IN    EROGRAH     16/aAS/8U    VERS  10 H 

C  CCNIfCLS   THE    EXECUTION     CF    THE    ENTIRE    PROGRAM. 

C  TfilS    IS    THE     PROPOSED    MODIFICATION    OF    THE    JOHNS' 

C  II    Hill    WORK    FOR    SCME   CASES    3UT    NOT    FOR    EVERY 

C  CASE.     TEE    FLIGHTPATH    PACKAGE     (3IGCAL    PACKAGE) 

C  IS    ALSC    LISTED    SEPARATELY     A3    111     FORTRAN.     THE 

C  111     PROGRAM     IS    SET    UP    TC    «6ITE    TO    FILE    AMD 

c  cces  :;ct  contain   any  graphics  dependent  calls. 

C  —    D.A.  ?..    16  3AR8U   — 

Q^^  t **************************************************************  ****** 

COMKOH    /MN1/    MINX.aAXX,  HI  NY  ,  HAXX,  ai  NX  1 ,  SAXX1  ,HI11X2,  haxx2 

CCJfflON    /LCC/     XI  .L  1,Z1,V1  ,  IT  R ,  LTS2 

ccaaoN   /an/  ieauc 

COMHON    /A  EC1/     WX  (1000)  ,  VY  (1  00  C)  ,  »Z  (1  COO)  , 'JUMOJC)  , WV  (1000)  ,'A  m  (10C0 
1)  r«H  (1000)  ,7P  (  1000)  ,  WR(  10 JO)  ,  WG  (1CJ0)  ,1  (1000)  ,  ICT 
COMMON    /ABC  2/     XM  E  fi  ,  X  IEH  P  ,  XO  LD  ,  Y  NEW  ,  Y  TEM  E  ,  YOL  J  ,  ZN  E  *  .  ZTSMP  ,  EO  LD 
CCMHON     /AED2/     VSIALL,VaAX  ,7  MA  a  1  ,  V  MAX  2  ,  DELTZr.,  DtLi'V,  DEL7AZ 
CCHHON    /EAR2/     XG0B(7)  ,YGUN(7)  ,ZGUN(7)  ,  XSAM ,  YSAM,  ZSAa  ,JH  (7) 
COMMON    /CFT/    IGUN,IPNCH,IEXT.ISAa,IHE,KER,IHPZ 

ccaaoN   /nam/    inam  1  (2)  ,i;;am2  (2)  ,iunp,  iANR,iDEsr 

COHHON     /TAR/    TARGX.TARGY 

CALL    ERSSET     (207,256,-1,1,209) 

ICT  =  2 

VHAX=73AX1 

CALL    3SGIN 

CALL    SCENE     (0  ,0) 

REWIND     1C 

C 

C    DRAB    THE    FIXED    GUN    SITE     S    ITS    ENGAGEMENT     CI5CLE 

c 

CALL    GUN  LCC     (  XG  ON  (7)  ,  Y3  0  N  (7  )  ,  CS  C7  )  ) 

C 

C    IGUN=1==>     READ    USER    0EFINEA3LE    GU.N    SITES    FROM    TERMINAL 

C 

IF     (IGUN.S3.  1  )     GC    TC    -.0 

C 

C    READ    COHHENTS    IN    KINDCS:    GRAPHICS     INITIALIZES 

C 

CALL    BIN     (MINX, MAiX,  18000.,  1  2CC0.  ,0) 

c 

C    GSLI    DEFINES    THE    TYPE    OF    LIME    TO    EE    DRAWN:     SOLD,     DASHED    ETC. 

C 

CALL   GSLI     (1) 

C  GEGARC  DRAWS  ARCS  AND  IF  SPECIFIED,  WHOLE  CIRCLES 

C 

CALL    GSGARC     (  3  CO  0  .  ,  3  000  .  ,  TA2G  X  ,TARG  Y  ,  1 .  ,  1  .  ,  2  .  ) 

CALL    GSLT     (0) 

CALL    GSFRCEl 

IEBR=16 

CALL    ERRKK     (IERR) 

DC    40     1=  1,o 
10  CONTINUE 

IEHfl=0 

IF     (IMPZ.NE.  1)     GC    TO    20 

CALL    XYPT 

ZGON fi) =20. 

GC    TO    30 
20  CONTINUE 

CALL    XYPT 

CALL    ZVPT 

ZGUN (I) =Z1 
30  CONTINUE 

XGUN (I) =X1 

YGUN  (I)  =Y1 

C    IF    GUN    TYPE    3,    CHK    FCE    3    Ka    SEPARATION    Fa    BRIDGE 

IF    (I.GE-5)     CALL    GDNCHK     (X1fY1,IEHR) 
IF     {IERR.NE.  0)     GO    TO     10 
C 

C    DRAW    GUN    SITE    AND     ENGAGEMENT     CIRCLE    OF    SEILZTLD    GUNSITES 

CALL    GONLCC     (  X  GU  N  ( I)   ,  YG'J  N  (I)  ,  GR  ( I)  ) 
SHITE     (1C,250)     XGCN  (I)  ,  YGUN  (I)  ,ZGUN  (I) 
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40     CONTINUE 

C  3EAD  USER  DEFINEABLE 


■AH  SITE  ?M  TESaiSAL 


50 

60 

70 

C— ■ 

C    VEBIPY    SAH    SITE    AT    LEAST    oKM     EM    WESTEEH     BOUNDARY 

c 

CALL  S  AMCE-K  [XI,  IZ5R) 
IF  (I3BR.H2.3)  GC  TC  50 

C    DRAM    SAM    SITE 

c 

CALL    GUNLCC     ( XS4H , YS AM. 1 50. ) 

HHITE     (10,250)      XSAH ,  YSAM  ,  ZSAM 
GO    TO     12C 


CONTINUE 

IEEH=14 

CALL    SRRMK     (IESR) 

IE     (IflPZ.UE.  1)     GO    TO    60 

CALL    XXP1 

ZSAJ=20. 

GO    TO    70 

CONTINUE 

CALL    XYPT 

CALL    ?VPT 

ZSA»=Z 1 

CONTINUE 

XSAM=X1 

ysam=y  1 


c 


READ    GUN    SITES    ?3GH    DATA    FILE 
50    TO     100 


C    IGUN  =  2==> 

c 

30  CONTINUE 

IF     (IGUN.NE.  0) 

DC    SO    1=1 .b 

BEAD     (10,250)      XGu'N  (I)  ,1  Z'Jll  \1)  rZGUN  (I) 
90  CONTINUE 

READ     (10,250)      XS 43 , YSAH , Z3A M 


C    DEAW    GUN    SITES    ANC     ENGAGEMENT    CIRCLES 

100  CONTINUE 

DO  110  1=1,6 

CALL  GUNLCC  (  X  GU  N  ( I)  ,  YGU  N  (I)  ,  G?  ( I) 
110    CONTINUE 

CALL  GUNLCC  (XS A3, IS AH, 1 50. ) 
120    CONTINUE 

C 

C 
C- 


THIS    SECTION    ACCEPTS    IHE    FLIGHT     MILESTONES 


IERR=1 5 

CALL    EEHMK     (ISBR) 

BEHIND     1  1 


BEAD    MILESTONES    PHCH    IHE    DISK 


30 


IF    (IMP.NE.O)     GC    10    mo 

BEAD     (11,2b0j      T  (ICT)  ,WX  (ICT)  ,  5Y  (ICT).WZ  ( 
11)  ,*H  (ICT)  tiS  (ICT)  r'«n(ICT)  ,VG  (ICT)  ,  LTE 


ICT)  ,  WO  (ICT)   ,d  V(ICT)  ,*W  (IC 


LT52=LTB 


LIB=65    ==>    CALL    FCS    AIM 

LT5=66    ==>    CALL    FCB    SOME    RELEASE.     ALSO    ALLOHS    INCREASED    AIRSPEED. 
LTR=82    ==>    CALL    FCB    EECGfcAM    TESHI  RATION 

LIB=83    ==>    CALL    TO    BREAK    OFF    INPUT    ROUTINE    AND    RESTART.     MEANT    TO 
ALLOU    CHANGING    SIHD    WHILE    IN     MIDDLE    JF    PROGRAM. 


IF     (LTR.EC.65.CR.LTR2.ZQ. 65)      CALLAIMET 
LT  R.  EC.bo.  CS.LTF.2.E^.  oo)      VMAX=VMAX2 


IF 

IF     (LTa.ZQ.3  2.C5.Lia2.EQ.32.  ANC.  IMP.  HE.  0) 
IF     (LTB.  EQ. 3  3. CS.LT32.SQ.  33)      GC    TO    140 
CALL    GRAFIX 
ICT=ICT+ 1 
GO    TO     13 C 


GO    TO     180 


READ    MILESTONES    FECd    THE    TERMINAL 
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c 

140  CONTINUE 

CALL    WIN     (KINX  ,flAXX,  13000.  ,12000.  ,0) 

CALL   SSL!     (1) 

CALL    GBGA3C     (6  C  CC-  ,6  GOO  .  ,  TARG  I  ,T  A3G  Y  ,  1  .  ,  1  .  ,  2  . ) 

CALL    GSLT     (0) 

CALL    GSF3CE 

CALL    XYPT 

CALL    3  7PT 
c 

C   COaPCIS    FLIGHT    ?ARAfl2IESS    AND    CHECK    FCti     ER3CHS    3R    CS  Z?.    COMMANDS 

C 

I2R3=0 

CALL    EBHCEK     (IEPR) 

IF     (IEHR.ZO.O)     GO    TO    150 

WHITE     (6,270) 

'WRITE      (6,230) 

BEAD     (5,*)     ICCS 

CALL    FHTC;1S     MCLHSCBN    ') 

IF     (ICOB.  N£.  1)     GO    TO     150 

CALL    XYPT 

C    WAZPOINT    ACCEPTED,    Fill    III    THE    COEVE 

C 

150         CONTINUE 

CALL    tilGCAL 

ICT=ICT+1 

IF     (XOLD.  NE.X  NEW.  CB.  YOLD.  SE.  YNEW.OR.  ZOLD.  NE.  Z116A)     GO    TO    150 

C    LTS=b5    =  =  >    CALL    FOB    AI.1 

C    LT2=66    ==>    CALL    FCS    BC.13    RELEASE.     ALSO    ALLCW3    INCREASED    AIRSPEED. 

C    LTB=32    ==>    CALL    FCF    EFCGFA/.    TERMINATION 

C    LTH-o3    =>     CALL    TO    3F>ZAK    OFF    Il.PUT    30UTISS    ANu    RESTART.     MEANT    TO 

C  ALLOW     CHANGING   KIND    WHILE    IJI     MIDDLE    Or'    PROGRAM. 

c 

IF     (LT3.  2C.65.Cf..LTr  2.ZQ.  65)      CALL    MH?I 

IF     (LT3  .E'v.oo-05.  LI32.Ey.66)      VfAX  =  V;iAX2 

IF    (LT  3.  EC.82.OB.LTE2.ZQ.e2.ANC.IXP.  SE.G)     GO    TO    130 

IF     (LTR-EQ.d3.CE.LT22.2W-03)     GC    TO    160 

GC    TO     HC 

C 

C    THIS    SECTION     BESETS    THE    DATA 

c 

160    CALL  SCENE  (1  ,ICNT) 
REWIND  19 

C  DBAW  EETAINEE  MILESTONES 

C 

REWIND     1  1 
ICI=ICNT 
DO    170     1=1, ICT 

BEAD     (  1  1  ,2oG)      T  (ICT)  ,VX  (ICT)  ,  WY  (ICT)   ,WZ  (ICT)  ,WU  (ICT)  ,WV  (ICT)  ,  WW  (IC 
1T)  ,WH(ICT)  ,WP  (ICT) , WR  (ICT) , WG  I  ICT)  ,  LIB 
LIB2=L  TR 

IF     (LI3.ZQ.65.CB.LTR2.EQ.65)     CALL    AI SET 
IF     (LT  B.  EC-oo-C5.LT32.SQ.  oo)      VMAX  =  VMAX2 
IF    (LIB. EQ. 32. 05.  LTR2.Ey.32.  AND. II1P.  NE.  0)     GO    TO     130 
IF     (LT2.  ZC.33.C3.LI3^.  EQ.  S3)     GC    TO    140 
CALL    GRAFIX 
170  CONTINUE 

GO    TO     10 C 

C    THIS    SECTION    IS3MINA1ES    THE     ESOGHAC 

C 

180  CONTINUE 
LAST=IMP 
CALL    ELFIN     (LAST) 

C    CONVERT    ANGLES    FRCK    RADIANS    TC    DEGJE2S 

C 

DO    190    1=1, ICT  ~ 

HH  (I)  =  WH  (I)  *BTE 

MP  (I    =  WP  (I)  *RTD 

HB  ll    =WB  (I)  «BTL 
190          CONTINUE 
c 
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a  BITE  IH2  JCL  CARDS 


200 


210 


IF  (IPNC 
If  (IPNC 
WHITE  (6 
WRITE  (6 
WHITE  (6 
WRITE  lb 
READ  (5, 
CALL  FET 
IF  (IPNC 
WRITE  (6 
WRITE  6 
WHITE  (6 
W5ITE  ]6 
HEAD  I b . 
CALL  FET 
WRITE  (6 
READ  (5, 
CALL  ?HT 
WRITE  (6 
HEAD  (5, 
CALL  ?HT 


a. li 

,295 
,300 
,31  J 
,320 
4  CO) 

ens 

H.ZD 

,336 

,300 

,310 

,320 

aOO) 

CMS 

,340 

h    r 

CMS 
,350 
*)  I 

cas 


1)  STOP 

2   GC  TC  200 


INAJ1  (1  )  ,1  NAM1  (2) 
( • CLRSCE?!  ' ) 
. 1)  GC  TC  210 


) 

INAM2  (1  )  ,INAd2  (2) 
(•CLHSCEN  ') 

UNR 
('CL5SCEN  ') 

ANE 
('CLESCSN  •) 


CHOOSE  DESTINATION  FOR  OGTPUT:  PRINTER  OR  READER  FILE 


220 


WHITE  (6 
WRITE  ]6 
HEAD  (5, 
IF  ((IDE 

CALL  FRT 


,370) 

*)  IDEST 

ST.NE.  1)  .  AND.  (IDEST.  NE.2)  )  30  10  220 

CMS  ('CLRECEN  •) 


PHZSET  LOADS  MICS/E001  DATA  FILES  ONTO  USERS  A1  DISK' 
CALL  2 7ESET 


DUMMY  INPUT  ROUTINE  TC  LET  USES  KK'W  WHERE  5/HE  IS  IN  THE  PGM 


:it 


.  3b 0) 

*)  IGO 

CMS  (' CLRECEN  ') 


WRITE 

HEAD  ( 

CALL  FRT 

C 

C  FORCE  CALL  TC  CMS  TO  SUBMIT  DATA  rILES  TO  BATCH  PROCESSING  PGM 
C 

IF  (IPNC 

CALL  FET 

I?  (IPNC 

CALL  FBT 

CONTINUE 


H.ZQ.2)  GC  TC  230 

CMS  ('EXEC     '.'SUBMIT   ' ,'POCI     • ,'DATA 

H-EQ.  1)  GC  TC  240 

CMS  ('EXEC     ',' SUBMIT   ' ,'MICE     ' , • DATA 


) 


230 

240 

C — 

C  DUMMY 

c 

WRITE  (6 
HEAD  (5, 
STCP 

FORMAT  ( 
FORMAT 
FORMAT  ( 
FORMAT  ( 
FORMAT  ( 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT  I 
FORMAT  \ 
FORMAT  I 
FORMAT  i 
FORMAT  i 
FILE (S) 
FORMAT  i 
FORMAT 
END 


') 

INPUT    ROUTINE    TC    LET    USER    K  NCW    PGM    TERMINATION     HAS    BEES     REACHED 

,390) 
*)     IGC 


250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 

390 

400 


1 


3F10 

11  (F 

3H 

54H 

40H 

31H 

5  1H 

25H 

44H 

46H 

4tiH 

4ia 

3CH 

46a 

4CH 
2A4) 


•  5>. 
ofc 

TO 

A    J 

ENT 

**D 

TO 

ENT 

ENT 

CHC 

1=E 

ENT 


1, IX)  ,13) 


WANT    TC    FIX    THE    EEROR:0=NO, 
SUBMIT    P00  1    TO    EATCH     YOU    MUST    ' 


YCH 


c 

s .  . 

ES    YOUR 

ER    YOCH 

CSE    TEE 

E INTER; 

ER    ANY 


US  ER 

ACCT  HOtBEH  --  PROVIDED 
DESTINATION  FCR  YOUR  OU 
2  =  YOUR    READER     FILE1 


?L 


ST    CR 
UT    TH 
aY    T 
TPUT: 


HE    PROF. 
) 


«*NUH3EB**    TO     SUBMIT    YOUR    PO J  1 /M ICE,  1 4 H    DATA 
ENTER    ANY    **NOMBES**    TO    TERMINATE    T2PI?) 
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C**  *  *  **  *****  **********   *  **  *  *«*  ******»**************************<■««******* 

C    S0EHO0TI.se    BEGIN 

C  THIS    SOBEODTINE     IMTTALIZZ5    THE    GHAPHICS    AND    BEQOESTS 

C  TEI    USER    OPTIONS  . 

C ********************************  *************************************** 

SOEHOOTINE    3SGIN 

COHMOii     /OFT/    IGUNfIJNCH,IEXT,ISAfl,IHE,K£S,IMPZ 


C    HE 

AD    USSH     OPTION 

s 

CALL    F3TC3S 

(•CLHSCHN    •) 

10 

WHITE     (6,40) 
HEAD     (5,*)     I 
IF     ((IGON.ME 

GUN 

.  0)  .AND.  (IGUN 

.;,e.  1 

)  .  AND. 

(IGl 

IN. 

NE. 

2)) 

GO 

TO 

10 

CALL    7ETC2S 

(  'CLaSCeci    ') 

1)     GO    TO    20 

IF     (IGON.NE. 

WBIT2     (6,50) 

WHITS    J6.6G 
HEAD     (5,*)     I 

HPZ 

CALL    FHTCSS 

(•CIBSCES    ' ) 

20 

WHITS     (6,70) 
HEAD     (5,*)     I 

:ip 

IF     ({IHP.NE. 

0)  .AND.  jIHP.  N 

E.  1)) 

GO    TO 

20 

CALL    F5TCMS 

('CIaSC3N    ') 

30 

WHITE     (6,60) 
HEAD     (5,*)     K 

ON 

IF     [(KON.SE. 

1 )  .  ANC.  (KON.  N 
( ' CI3SCSM    ' ) 

E.2)  ) 

GC    TO 

30 

CALL    PETC^S 

IF     (KON     .NE. 

1)     CALL    CONC 

HG 

C    INITIALIZE    THE    1 

HAEHICS     AND    C 

LEA?. 

SCREEN 

CALL    OSINIT 
CALL    G3SSSE 
HETUHN 

40 

fo^iat    (5uii 

FORMAT     (55H 
1) 

FoaaAi    (55a 
1) 

FORMAT     (5CH 
FC5MAT       50H 

intl2:C=DISK    ? 

1LS;  1 

-r&aiii  nal 

;2  = 

t3ESi.T 

(GOUGE 

51 

T    OF   go; 

:;s 

50 

**    CHCICZ    1     NEGATE 

S    riAVI 

SG 

TO 

GO 

O'/S 

a  t 

0    I 

aE 

aliihet: 

ER 

60 

G3N/SA3    SITE 

ALT  IT 

UDE:1= 

FIX 

£  J 

TO 

20a 

;  2  = 

USE 

R    D 

EFINEABLE 

70 

AIHCSAFT    SL- 

STONE 

INPUT 

:    0 

=  31 

3<i 

FIL 

,2= 

1=T 

ESM 

INAL) 

30 

FLIGHT    5    GArfS 

PAR  A MET EH 3 

:    1 

=  0Z 

;i-'aol 

USE 

'?    I 

SPOT) 

END 
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(;  ********************** *J»**»****»***4*«*******4**»***«***»*#*«  *********** 

C    SUBROUTINE    CONCHG 

C  THIS    SUcROOTINE     81IOSS     OPERATOR     CHANGES    TO    THE 

C  3I2UIATIGN     PAHAMITEHS. 

£**********#**********«*****?'>***««'******:*   4«*****************B*«**a»**«* 

SUBROUTINE   CONCHG 

COMHOM    /AE02/    VSTALL , V« AX ,VMAX 1, VMAX 2,DELTEE,DELT V, CELTZ 
COMJION    /AEE^/     lHaAX,AN.1AX,CL«AX,GE2,  AKK,  RHOSSL, WL, CDO,  CDK  ,  AREA 
CCKilCN    /F  A24/     ftEEKAX,HTMIS,  HT3AX,  203 MIN  ,BAAI.T,  BRaiN  ,3iiSAX  ,  BRRaiN  ,B 
1  S  R  3  A  X  ,  alZ  f.\'il? 
COMMON     /TAB/    TARGX,TARGY 

C 

C    WBITE    INSTRUCTIONS 

c 

10 


20 
30 
40 

50 
60 
70 

ao 

90 

100 

1  10 

120 

130 

140 

150 


a  BITE 
WRITE 
WBITE 
WRITS 
WRITE 
WRITS 
WBITE 
WRITS 
WRITE 
BEAD     ( 
If       (K 
GO    TO 
1)  ,     K 
WRITS 
READ 
GC    TO 
W5ITE 
REAO 

gc  ro 

WRITS 

BEAD 

GO     10 

WBITE 

READ 

GC    TO 

WRITS 

BEAD 

GO    TO 

WBITE 

READ 

GC    TO 

WRITE 

BEAD 

GO    TO 

WRITE 

READ 

GC    TO 

WRITE 

HEAD 

GO    TO 

WHITS 

READ 

GC    TO 

WRITE 

READ 

GO    TO 

WBITE 

BEAD 

GO    TO 

WRITE 

READ 

GO    TO 

WBITE 

READ 

GC    TO 


6,190) 

(6,200) 

6^210 

6,220) 

(6,2J0) 

(6  ,240) 

6'250) 

6,260) 

(6 ,270) 

5,  *)     K 

.11.     3 

(iac,20 

(6  ,230) 

!&*>  cL 

(6,290) 

V  SL 

(6 ,300) 
5,*)     VS 
10 
(6,310) 

?«•»  " 

10 

(6,330) 
5.*)  HT 
10 

(6,340) 
5,*)     PO 
10 
(6,350) 

(6  .360) 

V'  TH 

(6,370) 

10 
(6,390) 

?«•>  "' 

(6,410) 
5,*)     TA 

10 


)      .05.      (K    .  GT.      1"))     GO     TO     10 

, 30,40,50,60, 70 ,30,9 0,1 00, 110, 120, 130, 


140, 150,  16G,  170 


SAX 

TALL 

KAX 

S  IN 

MAX 

EHIN 

?2AX 

MAX 

0 

K 

AX1 

AX2 

RGX.IARGY 


C 

C     BEAD    NEW    PARAMETER    VALUES    FROM    THE 
c 

160 


:sk 


REWIND  16 
READ  (16,450) 
BEAi>  (16,450) 
BEAD     (16,u50) 


CiaAX.BL, VSTALL.ANHAX, HTM IN, HT MAX 
ECeaiS,APPa  AX,TBHAX,CDC,CDK,  VflAXI 

»MAi2  ,TAP.GX,TASGY 
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GO    TO     10 
C 

C    aSITS    PARA8EIEH    VALCES    TC    THE    TS22INAL 


170 

SSIT2     (6 

,42  3 

)     CLMJ 

WRITE     (6 

,45  0 

iX,  WL,  VSTALL,ANMAX,  HTMIN,HTMAX 

HBITE     (b 

,430 

SHITE     (6 

,450 

)     POP? 

!IN,A??M  AX,THMAX,CDO,CDK,  VMAX1 

«  8 1 T2     (6 
WBIT2     (6 

,44  0 

|      VHA2 

,450 

:2,TARGX,TARG! 

GO    TO    10 

C    SAVE    PARAMETER    VALCES 

CN    DISK    AND    EETURN    TO    CALLING    ROUTINE 

180 

REWIND     16 

WHITE     (1 

O.450)     CT.t!AX,WL  , S?DMIN,GMAX,  HIM  IN,  HTM  AX 

WHITE     (16.450)     PC£MIK.APPMAX,T2AX,CDQ,C.EK,VHAX1 
HEITS     (16,450)     VaAX2,TARGX,TARGY 

BETURN 

190 

fc an at    i 

25H 

) 

200 

FORMAT     ( 

5CH 

SE1EC1 

:    PARAMETER    TC    3E    CHANGED:     1=SO    MORE    CHANGES) 

210 

FORMAT 

48H 

2  =  H  A  X 

LIFT    COEFP;     3=WI'IG     LOADING;     4=5TALL    SPEED) 

220 

FOHMAT     | 

47H 

5  =  «  A  X 

3     FORCE;    6=MIN    ALT  ;     7=ilAX    ALT(<2200    MTU)) 

230 

FORMAT     | 

42H 

d=CI3TANCE    TO    TARGET    BEFORE    POPUP    ALLOWED) 

240 

P0  8MAT     I 
10         LIFT 

^63H 
J44H 

9=MAX 

APEROAC3    ALT;     10  =  MAX    1/ «    RATIO;     11=JRAG    COEF.     5/ 

250 

FORMAT     | 

12=LIi 

;T     CRAG    CONSTANT;     13=MAX    SPD    WITH    30M3) 

260 

FORMAT     I 

44H 

14-MAX    3PD    W/C    BCKE;     15= TARGET    COORDINATES    ) 

270 

FCE3AT     | 

'4311 

16=2EJ 

ID    PARAMETER    FILE;      17=LI3T    PARAMETERS) 

aAX    LIFT    COEFFICIENT) 

230 

FORMAT     I 

27H 

E  :;  I E  2 

290 

FORMAT     1 

'19H 

enter 

WING    LOADING) 

300 

FORMAT     I 

;  18H 

cNTZR 

STALL    SPEED) 

310 

FORMAT     | 

'26K 

z :.  i  e  -?. 

aAX    Z     FCRCE    ALLOWED) 

320 

format    i 

23H 

ENTER 

MINIBUS    ALTITUDE) 

330 

FORMAT     I 

47H 

enter 

KA2ISUM    ALTITUDE     (LESS    THAN    2000     METERS)) 

340 

FORMAT     I 
FCBHAT      i 

;55ci 

EHTEE 

MINIMUM    DISTANCE    TC    TARGET    2E.70A£    POP-UP     ALLOWED 

350 

[32H 

ENTER 

MAXIMUM     -.PPPCAC:)    ALTIIODE) 

360 

FORMAT     i 

[35  A 

7  >;  T  -  c 

aAX    THRUST    TC    rf  £IG  UT     ALLOWED) 

370 

FCSMAT     1 

37H 

ENTER 

CRAG    COEFFICIENT    FOR    ZERO    LIFT) 

380 

FORMAT     i 

25H 

ENTER 

LIFT    DRAG    CONSTANT) 

39  0 

FORMAT     i 

32H 

ENTER 

aAX    SPEED    CARRYING    A    3CMd) 

400 

FCBMAT 

>39H 

ENTER 

MAX    SPEED    AFTER    SOM3    IS    RELEASED) 

410 

FORMAT     i 

[33H 
[55H 

ENTER 

TARGET     X    AND    Y    COORDINATES) 

420 

FORMAT     i 
FORMAT     i 

aAX    CL         WING    LD       STALL     SPD          MAX    S          3IH.HT.        aAX.HT. 

430 

(75H 

PCF-UF    CIST          APPH.HT.        MAX    THRUST       CDO       DRAG    CONSTANT 

1       max   spc   with   Ecaai 

440 

FORMAT     i 
FORMAT 

[5dH 

MAX    Si 

cD    W/O     B0M3            TARGET    X    COORD.             TARGET     Y    COORD. 

450 

(6P12. 4} 

END 
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(;«***♦««*«*««*****»»*»»«»♦»«*««***«*»*»«*•»»*»**«**««*****♦»**«*«»**«** 

C    S02J0UTI3E    SCENE 

C  THIS    ECETTNE    DRASS    THE     ATTACK    SAP    AND    ASSOCIATED 

C  DISPLAYS.     DURING    RESET     IT    OBTAINS    THE    LAST    SILE- 

C  SIC NE    THE    OS ER     WISHES    TO    RETAIN. 

SUBROUTINE    SCENE     (IRQ, ICNT) 

CCHHON    /MN1/    C  IK  X, lift  XX,  HI  NX  , H AXY, MIHX1 , 3AXX1 , HIHX2,  MAXX2 
CO « HON    /MN/    T2AUD 

COMMON    /A2C1/     «X  (1000)  ,»Y  J100  0)  ,  iZ(1  COO)  crfU(  1000}  ,  'i  V  (  1  300)  ,  WW  (10CO 
1)  ,WH<1000)  ,WP  (  1000)  ,  WR(  1000)  , WG(1000)  ,  T  (IOjJ)  ,ICT 
COMMON    /TAR/    1AEGX,TARGY 
DIMENSION    VSL  (200) 

VEL  (ICNT)  =  SQR1  (hU  (ICNT)  **2*  W7  |ICNT)  *  +2  *  WW  ( ICNT  )  **  2) 
fi£AL«<+     GX,GY 
LOGICAL    *1CHA8S(2Q) 
ICNT=0 
c 

C    EHASE    THE    TEK618    SCREEN 

C 

CALL    GSEES2 
CALL    DSTEEM 
C 

C    READ    0SER    OPTION S : ECR E SR    AND    GUN/I-ISS    POSITS    OR    FILL    IN     MA?    ALSO. 

C 

WRITE     (6,100) 
HEAD     (5,*)     MA? 
IF     (IRQ     .10.     Q)     GC    TC    1G 
WRITE     (b,90) 
READ     (5,*)     ICNT 
CALL    ?STCMS     ('CLRSCRN    ') 
c 

C  D  £  ^  *     ^  H  E    X     Y     M  A  ? 

C  THE    ROUTINE    RE1DS     X,Y    PAIRS     F  EO  M    FILE    «J9.     A    -2.  J, 3    INDICATES 

C  ESC    C?    FILE, -0.5,0     I.VIICATES     A    30VE,ALL    OTHEr.     VALUES     u.Z    PC- 

C  SIIIVE    AND    RES'JLT    IN    A    DRAW     TC    THAI    POINT. 


C    RE-INITIALIZE    THE     TEK618    SCREEN 

C 

10  CALL    DSINIT 

CALL    WIN     (MINX,  MAXX,  18000.,  12CC0.  ,  1) 

IF     (MAP    .EQ.     0)     GC    TC   40 

REWIND    9 

READ     (9,80)     GX,GY 
20  HEAD     (9,30)      GX,GY 

CALL    GSVECT     (0.  ,r,2,GY) 
30  HEAD     (9,80)     GX,GY 

IF     (GX.L1.-1)     GO    TO    40 

IF     (GX.LT.    0)      GO    TO    20 

CALL    GBVECT     (1  .  ,GX,G  Y) 

GO    TO    30 


C    MAHK    THE   TARGET:     GGNLCC     PUTS     A    +     AT    GUN/MISS    POSIT    AND    OIRCUMSCRI EES 

1*0  CALL    GUNLCC     (  T  ARGX  ,  T  ARG  Y  ,  150  .  ) 

CALL   GUN  LCC     (  T  ARG  X  ,  T  AEG  Y  ,  300  .  ) 


C    DBAS    TIC    MARKS    EVERY    2000    MTRS 

C 

DO    50    1=1,3 

IW=2*I 
c 

C    TBIS     EIOCK    DRAWS    TEE    X-AXIS    TIC    MASKS 

C 

CALL    GB7ECT     (  0  .  ,  I*  2000.  ,  1  000  .  ) 

CALL    G3VECT     ( 1  .  ,1*2000.  ,0  .) 

CALL    GAXITC     { 1  ,  IW .2 , CHARS) 

CALL    GBCHAR     ( I  *  20  GO.  ,  0.  ,  2  .,  0  .  ,  2  ,CHAR  S) 

C 

C    THIS     ELOCK     DRAWS    TEE    Y-AXIS    TIC    MARKS 

C 

IF    (I    .GE-    6)     GO    TO    50 

CALL   GBVECT     (C- , 1  COO- .1*2000.  ) 

CALL    GBVECT     ( 1 .  ,  0.  ,  2000  .  *I) 

CALL    GAXITC     ( 1  , 1 W  ,  2 , CHA SS ) 

CALL    GBCEAR     (-60.  ,1*200 0 .  ,2 .  ,  0. , 2 ,CH AriS ) 
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50  CONTINUE 

I2=MAXY 
SAXY=dINY-15 

SINY=MIN  Y-20  0 

CALL    WIN     (MINX+275.MINX  +  2200,  1<95.  ,  185..  C] 

CALL    S3CHA5     ( 1  C.  ,  1 1 0  .  ,2  .  5  ,0.  ,  50  ,  '  XSY    MASKS    IN    2000    SETSB    IHTVLS') 

CALL    GECfcAR     { 1  G  -  ,  ->0  .  ,2.  5  ,  0.  ,  2  5  ,  '  ZSiO    DEGREES    ALONG    X    AXIS') 

CALL    GSFSCI 

MAXY=I2 

miny=i 1 

C 

C    3BAW    THE    ALTIMETER 

C 

CALL    WIN     (MINX  1,,".AXX  1,350.,  22CC,  1) 

DO    oO    1=2  .20 , 2 

CALL    GBTECI     (  0  .  ,  3  .  .  I*  10  3  .  ) 

CALL    G3VECT     (  1  .  ,3  50  .  ,1*  1  0  0.  ) 

CALL    GAXITC     ( 1 , I, 2, C LASS) 

CALL    G3CHAH     (  0.  ,  I  *  1  CO.  ,  2.  ,0  .  ,  2  ,CHARS  ) 
60  CONTINUE 

DO    70    1=  1,6 

CALL    GBVECT     (  0  .  ,1  *5  0  .  ,  1  0  0  . ) 

CALi    GBVcCT     (  1  .  ,  1*50  .  ,  0  .  ) 
70  CONTINUE 

C 

C    MARK    aSSZT    POINT     VELOCITY    AND    ALTITUDE    AS    OEERAIOii    AID 

c 

IF  (I2Q-NE.0  .A:.D.  ICNT  .GT.1)  CALL  GEGDOT  (9. . VEL ( ICH2)  , WZ  (IC«T) ) 

HAXY=rtIl.'Y-15 

MINY=MIN  Y-200 

CALL    -JIN     (flOY  +  2dC0e3I2U  +  390Q.  195. ,1  85.  ,0) 

CALL    GBCHAa     {  1  C  .  ,  1  1  O  .  ,2  .  0  ,  J  .  ,  29  ,  •  ALT     'AkeKS    IN    200    METE3    ISTVLS') 

CALL    G3CEAR     (  1  G  .,  60  .  ,2.  0  ,  J.  ,  3  3  ,' VELO    IN    50    .1/3    IJTVL    ALONG    X    AXIS' 

C  ALL    GS r  HC£. 
HAXY=I2 

mi:;y=i  1 

SETU3N 
80  FORMAT     (2F10.2) 

90  FORMAT     (38K    AT     «HICH    POINT    DO    YOU    «ANT    TO    RESTART) 

100  FORMAT     (38H    VILLAGE:    0=NCT    DRA'«N;     1=  VILLAGE    DRA^N) 

END 
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C    SUEBGUTINE  WIN 

C  1HIS    ROUTINE    DEFINES    A     WINDOW    EXTENDING    FR03    LX    TO    «X 

C  CN    TEE    HORIZONTAL    AXIS,     AND    FKOM    31 N  Y    TO    3AXY    ON    THE 

C  VERTICAL   AXIS.     THE    HORIZONTAL    iAilGE    IS     RX  ,    IMS 

C  VERTICAL    RANGE     IS    RY. 

SUBROUTINE    WIN     (LX,  3X,3X  ,  BY  ,  J  H F) 

COMMON    /.IN/    I  BAUD 

COMMON    /HN1/    HINX,HAXX,HINY,MAXY,MISXl,aAXX1  ,8IifX2  ,  MAXX2 

2£AL*4     WAN1  m 

INTEGE3*4    71 (4) 

DA'IA    WAN  1  (1)  /C./,  WAN1  (2) /0./ 

C 

C    DEFINE    THE     WINDOW 

V1  (2)  =  MINS 

V1  (4)  =  MAXY 

IAN1 (3) =  RX 

WAN1  (4)  =  RY 

V1  (1)  =LX 

71  \3)  =  «X 

CALL    GAS?IE     (VI  , J) 

CALL    GASWIN     (WAN  1  ,0) 

IF    (J3P     .Eg.     0)     JC    TC   20 

c 

C    FLASH    IHE    DEFINED     «INDCW 
C  — 


icnt=4+5c*ibaud 
dc  10    i=i,ic:;t 


CALL 

G3VECT 

(C.r J.  ,0.) 
1 .  ,  W  A  N  1  ( 11 

CALL 

GUV  :CT 

,  W  AN  1 

(4)) 

CALL 

33VECT 

(1  .  ,  SAN1  (3) 

,  WAN1 

m 

CALL 

GSV  ECT 

1.,.WAN1  (31 

,  a  AN  1 

CALL 

G3VECT 

(1  .  ,  »AN1  (1) 

,  ii  All  1 

12)) 

C    YCU    DO    NOT    WANT    A    "CALL    GS7RCE"     HEiE.    WINDOW     DEFINES    THE    GRAPHICS 

C    PCET    CH    "WINCCW"    YCO     ARE    "OPENING".    THE    OTHER     SUBROUTINES    ARE    PASSING 

C    THINGS    THROUGH    THE    OPEN    KISDOK.     "CALL    GSFRCS"    ,-LOSSS     THE    WINDOW. 

C 

10  CONTINUE 

20  RETURN 

END 
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Q*»*#*****  *****************  »*******4**»  »**+*****=»*#****<■»«****»*******»* 

C    SGBEOUTINE    GLNLOC 

C  THIS    SUEROUTINE     CHAWS    EFFEICTIVE    FIEE    RADIUS    CIRCLES 

C  AROUND    THE    DEFENSIVE    AAA    EATTEHIES. 

SUBSOUIINE    3UNI0C     (GX,3Y,3AD) 

common   /KN/   IEAUC 

COMMON    /KN1/    BINX,HAXX,MINY,MAXY,MItIX1,  8AXX1 , MOX2, MAXX2 

3EAL*U     X,Y,DX,IY 

X=GX 

Y=GY 

C 

C    IDENTIFY    THE    HA?    ANC    ELACE    A     '  +  «      AT    THE     LOCATION 

c 

CALL    WIN     [3ISX,MAXX,  18000.,  12CCQ.,0) 

CALL    G3VECT     (C.,X-75.,Y) 

CALL    GBVECT     (1.,X+75.,Yj 

CALL   GSVECT     (0.fX,Y+75.) 

CALL    SBTECT     (1.,X,Y-75.) 

C 

C    DRAW    A    CIRCLE    AROUNC    1 fc E    SITE 

C 

CALL    GSLT    (14) 

CALL    G5GARC     (  R  AC,  SA  C  ,1,  Y  ,  1.  ,  1  .  ,2  .  ) 

CALL    GSLT     (0) 

CALL    GSFRCE 

RETURN 

END 


Q  ■**»**  *  »****  *****»**»****»*  ***************  *****i»*******««t**sc*****»»***i«i 

C    SU3R0UTINE     XYPT 

C  THIS    SUEROuTIJTE    CET.Mlio     THE    X    AND    i    CQCCD IHATES 

C  AND    CCMKAND     FOR    EACH    DESIGNATED    POINT     (MILESTONE). 

SC3ROariNE    XYPT 

COMMON    /ICC/     X  1,1  1,2  1,7  1  ,  113,  LTR2 

COMMON    /HN1/    MINX,aAXX,aiNY,MAXY,aiNX1,MAXX1 ,MINX2,MAXX2 

C  CALL    3 ELL 

C    FLASH    MAP    ANC    GET     X,Y    ANC    THE    FIRST    COMMAND 

c 

CALL    WIN     (MIMX,MAXX,  13000.,  12CC0.  ,  1) 
CALL    SPOT     (X1 , 11 ,ITR) 

CALL    GSF5CE 
C  CALL    SELL 

RETURN 
END 


C    SUBROUTINE    ZVPT 

C  THIS    SUEROUTINE    CETAINS     THE    ALTITUDE    AND,     DEPENDING 

C  CN    TEE    CIRCUMSTANCES,    THE    VELOCITY    OF    THE    DESIGNATED 

C  PCINT. 

C**»**»******** *************************** *****»***********#**«********* 

SUEROUTINE    ZVFT 

COMMON    /LCC/     X1  ,Y1  ,Z1  ,V1  ,  IT3,  ITH2 

COMMON    /MN1/    MINX,MAXX,  .1INY  ,3AXY,;iIN  X1,MAXX1  ,MINX2,  MAXX2 

C    FLASH    ALTIMETER    ANI    GET    VEL.ALT    AND    THE    SECOND    COMMAND 

C 

CALL    SIN     (MINX  1,MAXX  1,  350.,  22CC,  1) 

CALL    SPOT     (V1,21,ITS2) 

CALL    GSFHCE 

RETURN 

END 
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Q***********  **********************************************************  ** 

C    SUBROUTINE    SFCI 

C  THIS    RETURNS    AM     X-Y    PAIS    AND    A    COMMAND     VALUE     L1 

C  IKE    50UTINS     \LSO    CREATES     A    DOT    AT    POINT    X-Y. 

Q-**  *************************************************************  ******** 

SUBROUTINE    SPOT     (X,Y,L1) 

a£AL*u    rx,TT,ncT 

INTEGER*1*    L,a,CUT,KEl 

C    HEAD    THE    CURSC3    AND    PICK    UP    USER    COMMAND 

C 

10 


CALL  GBRXYC 
CALL  GAXCTI 
DOT=40. 


;k,lxkey,tx,tyj 

!  1  ,kzy,  1  ,lzn , out) 


C    MARK    THE    SPOT 
C- 


CALL    GBGECT     (DCT,TX,TY) 

X-TX 

Y  =  TY 


C 

C    COMVEBI    THE    COMMAND 
C- 


?ac? 


?C3MA1 


L1=0 

IF     (OUT.  EC-  1 

IF      ODT-EQ.2 

IF     loUT.EQ.J 

IF     (0UI.EQ.4) 

fiETURN 

END 


L1  =  fc5 
L1=6o 

L  1  =  6  2 

Li  =  e3 


L-  «  •  4  «  «  )  I  <  •  J>   «  i  U  «  »  •  u  »  i  «  J  >  >  i  »  i-  »  •>»  *  im  '  J  J«  «   <  u  «  -  -  »  t  •  j  .  i  .  t  =  .  .  j  t  t  >  «  i  in  .  -.  i  ' 

C  SUBROUTINE  GUNCHK 

C  IEIS  SUE30UTINE  CRECKS  GUN  LOCATIONS  \GAINST 

C  EMPLACEMENT  2UL2S. 

ri»4n»*M»*«*H«l«*tMH«H=«»lH*UJ«.»«t»l<)OJ»*»<i»»H«««tJJllr«?»H 

SUBROUTINE    GUNCHK     (X,Y,IE3R) 

COMMON    /TAa/    TARGX,TA3GY 

C * 

C    COMPUTE    DISTANCE    TC    TARGET 

c 

DIST^SQRT  (  (X-TARGX)  **2    ♦      (Y-T  A  BG  Y)  **  2) 

IEBE=0 

IF     (DIST    .GE.     300C.)     3ETU3N 

IEBR=13 

CALL    33HMK     (IEBH) 

BETURN 

END 


C    SUBROUTINE    SAMCHK 

C  THIS    SUBROUTINE    CHECKS    THE    MIS3L£    EMPLACEMENT 

C  AGAINST    GAMS    LIMITATIONS. 

C+*  ***********  ***************************************  9* *********  ******** 

SUBROUTINE    SAMCHK     (X.IZ3R) 

IEBB=0 

IF    (X     .GE.    6000.)     RETURN 

IEBfi=19 

CALL    ERRMK     (IEBR) 

BETURN 

END 
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C  *»  *»*jr****i*i****<i  »  4  a  a  a*  *  «**  «*Jt»3»)<»»»»»'H)»«»sin«jnJ!i.'i;?t«  i!«e»Jt» 

C    SUBROUTINE    EfiHMK 

C  THIS    SUBROUTINE    SENDS    PBCMETS     AND    ERROR    MESSAGES 

C  TG    Th£    USER. 

£*»»»»»**«4***»*s«*»a*a*««»*«S4aj«aa4*»a**»«****»«w*aa*^*«»-?-#**JiK»a»***i 

SUEHOUTINE    ERSKX     (IEER) 
COHBOH    /MN/    I2AUD 

CCMaON    /AcCV    HX  ( 1000)  ,WY  (1000)  ,SZ(1  000)  ,  WUMGGO)  ,  «V(1000)  , WW  (1000 
1)  ,IH  (1000)  .MP  (1C00)  -  *&(  1  000)  ,  WG(1  JOO)  ,T  (1'JuJ)  ,ICT 

common  /mni/  anix,MAXXt  miny  ,HAX¥,aiii  xi ,  baxxi  ,aiax2,  maxx2 

c 

C  PLASH  THE  PBCMPT  KISDCH 

c 

CALL    WIN     [aiNX2,2AXX2,27  00.  ,165.  ,  i) 

GO    TO  (1 G ,20, 30, 4C, 50,60 ,70, 30, 90, 10  0,1 10,  120,  130,140,  150,  160,170, 

1  180)  ,  IZBR 

10            WHITS  (6.200) 

GC    TO  190 

20            WRITS  (6.210) 

GC  TO  19  0 

30     WRITS  (6.220) 

GC  TO  190 

40     WRIIS  (6.230) 

GC  TO  190 

50     WRITS  (6.240) 

GC  TO  190 

60     WRITS  (6,250) 

GC  TO  190 

70     WRITS  (6.260) 

GC  TO  190 

30     WRITS  (b.270) 

GC  TO  190 

90     WRITS  (6,230) 

GC  TO  19(5 

100    WRITE  (6.290) 

GC  TO  190 

110    WHITS  (6.300) 

GC  TO  190 

120    WRITS  (6.310) 

GC  TO  190 

130    WRITS  (6.320) 

GC  TO  190 

140    WHITS  (6.330) 

GC  TO  190 

150    WRITE  (6.340) 

GC  TO  190 

160    WRITE  (6,350) 

GC  TO  190 

170    WHITE  (6.360) 

GC  TO  190 

180    SBIIE  (6.370) 

GC  TO  190 
190    RETURN 
200    FCSBAT  (25H  HAXIMOH  ERAKING  EXCEEDED) 

210       format    (15a  a  as  s  sxceeded) 

220  FORMAT  (12H    ALT    TCO    LOW) 

230  FORMAT  (13H    ALT    TCO     HIGH) 

240  FORMAT       6H    STALL) 

250  FORMAT        15H    PCE-JE    TCO    LOW) 

260  FC3MAT        13H    BBE    CECF    LOW) 

270  FORMAT  (12H    3MB    DSC?    HI) 

280  FCBBAT  (15H    TCC    E2R    EM    TGT) 

290  FORMAT  (17H    HDG>5    DEG   TO    TGT) 

300  FORMAT        19H    FINAL    HUN<2.33    SEC) 

310  FCSMAT  (21H    NC    HCEIZCNTAL    MOTICN) 

320  FORMAT  (17H    TOC    CLCSE    TO    TGT) 

330  FORMAT  (23H    ENTER    MISSILE    LOCATION) 

340  FORMAT  (26H    ENTER    AIRCRAFT    MILESTONES) 

350  FORMAT  (20H    ENTER    GUN    LOCATIONS) 

360  FORMAT  (2CH    MAX    THRUST    EXCEEDED) 

370  FCSMAT  (23H    x     COORDINATE    LESS    THAN    6000) 
END 
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£***«********* 

C    SUHHCUTIHE     B 


c 

c 

c 

c************* 

SG3RO0TI 

co.iaoM  / 

1)  ,«'H 

[1  00 

C  C  M  M  C 

m  / 

1ZTEMP, ZO 

COMMON    / 

1WNEW, 

a  t  £ 

COMMON    / 

CCSSON    / 

COMMON    / 

N*0 

MCONT=0 

CALL 

T  FN 

CALL 

NEW 

CALL 

JVE 

CALL 

a  vd 

CALL 

DEL 

CALL 

TMP 

CALL 

T  ap 

CALL 

1MB 

CALL 

ANG 

CALL 

HOT 

CALL 

ACT 

CALL 

ACT 

CALL 

ACT 

CALL 

AC? 

CALL 

ACA 

CALL 

ACL 

CALL 

.(Cn 

CALL 

WAY. 

CALL 

FIL 

ICT  =  ICI  + 

SZT'JRN 

END 


*****  * 
IGCAL^ 

E 
L 

*****  * 

NE    3IG 

AECV 

C)  ,  WP  ( 

AEC2/ 

LE 

4CC3/ 

2E,WCL 

AEC4/ 

AED2/ 

AEZ5/ 


P5M 
CLD 
LC5 
CIS 
VEC 
ENT 
VSL 
TEH 
LIS 
PAT 
EMI 
HN2 
BM3 
VEL 
CC 

ais 

NGE 

ENT 

E 

1 


******  ********************»*************«**.«  ******** 


i    SUEBOUTINE    CIEEAT3S 
GB&H    AND    ACTS    AS    A    0  HI 

TED     WITHIN. 

*******  *************  ** 

L 

0 


AT    A    L 
VEE    FO 


2VEL    BE 
R    THE    S 


************* 


(  1000)  ,  WY  (100C)  ,  wzn  0 
00)  ,  WR(  1000)  ,  «G(  1000) 
ES,C£LXrXTEMP,XCI.D,yii 


C)  ,WU( 
T  (1000 


:a  f0ELY 

.C:i  ,  VELOT//ELCC,  N/JNEW,  0TE3P 


10  00)  ,  .< 
)  f  ICT 

7  TPMO 
r  i  ^  mli ..  j 


1  ,AIi1  ,AI  1  ,A  J1  ,AJ2 

T  ALL  ,r:  A X  ,  V  H  A  X  1 ,  V MAX  2  , 

C ACC,AN,  ilCONT 


,0OLD, V 
DELTZ2. JELTV, 


LOW  MA 
UBROUT 

***  *** 
V(1  000 
YOLD,Z 
S EW , 7T 

DSLTZ 


IN 
IHES 

********* 
)  ,  WH  (1000 
NEW,D£LZ, 
SMP,  VOLE, 


155 


£*********** ******x****************»****** **********************   ******** 

C    S0BEOU1IME  TRNFRM 

C  T5ANSFC5M    TAKES    THE    SEAL    VALOE    VARIABLES    SUPPLIED 

C  BY     IHE     GRAPHICS     SUBROUTINES     AND    LOADS     THEM     INTO 

C  VARIABLES    SPECIFIC    TO    THIS    AIRCRAFT     rRAJECTOSX 

C  GENERATING     PACKAGE. 

Q**  *******************************************************************  +» 

SUBROUTINE    TENFRM 

common  /lcc/   x  i,n,z  1,7  1 ,  its,  its2 

COHMOHf>/AEC2/     SHESfDELX  ,  XTEMP  rXCLD,I  5ES  ,DELY  ,  XT2SP,  TOLD.ZNEW  ,  DELZ, 

C08HON    /ABC3/     VELCN, VELOT  ,7E LCC, N ,UN EW , UTEMP , UOLD , 7  NEW , 7T EM P , 70 LE, 
1WNEW,WTEMF,W0LC 
COMMON     /AEE5/    F H C ACC  ,  AN , MCO NT 
XNEW=K 1 
YNEW=Y1 
ZNES=Z1 
VELON=V1 
BETURN 
END 


Q**  *  *****  ****************** *********** 

C    SOBROUTINE     NEViOLD 

C  SEWCLC    GENERATES    L2 

C  IHE    CUHiiENT     »A'f?(IN 

C  USER    HAS   JUST    ENTER 

q********* **************************** 

SUBROUTINE    NEUCLC 
COMMON     /AEC2/ 
1ZTEMP, HOLE 
COMMON     /APCV 
COMMON    /AEE5/ 


********************************** 


2NZ»,DZLX, XTEMP  ,XC 

AG1  .AH1.AI  1  ,A  J1  ,AJ 
SWCicC.A  J,  MCONT 


NGTH     VECTOR    COMPONENTS    BETWEEN 
2     (OLD)      AND    THE    DESIRED    ..APPOINT 
ZD     (NEW)  . 
********************************** 

ld,  r 

2 

NEW 

.DEL* 

,¥TSiSP, 

YOL 

L|ZN  AM  /  C  E  L  Z  r 

AG1  =  XNE*-XOLD 
AH1«YNE»-rOLD 
AI1=Z;J'n-20LD 
iJ1=SQfiT  (SG1**2+AE1**2*-AI1**2) 

AJ2  =  SG.  RT  (AG1  **2+AH1  **2) 

RETURN 

END 
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C    SCBROOTINE 

C 

C 

c 
c 
c 
c 


SOEHOU 
COMMON 
CCflMON 

iWNSW.a 

common 

H  =  N 
IP     (N. 

VNEW=V 
WNEW=V 
10  CONTI.N 

N=1 

HETUBN 
END 


4*  **** 

MVELO 


TINE  a 
/AEC4 
/AEC3 

TEHP.S 
/A£i5 


*  *♦ 
S 

av 

VE 
AN 
CC 
CC 

OB 
IN 
C 

*  »* 
VEL 
/  A 
/  V 
OLD 
/    r 


**♦**************»*»*»*****«***«*****#»****«***#*** 


ELCS     (MA?     VELOCITY    COMPONENTS)     DETERMINES    THE 
IOCITY    COMPONENTS    BETWEEN    CURRENT     HAYPOINT      (OLD) 
D    TEE    JOST    ENTERED    SfAYECINT     fNEW)  .     THE    SUBROUTINE 
STAINS    A    FLAG     (N)     TO     AVOID    RESETTING    THE    VELOCITY 
HECHENTS     ONTIL    EITHER     A    NEW    WAY  POINT     IS    iECEIVED 
AN    AIRCRAFT     LIMITATION     *H  ICH     IS    FATAL    IS     REACHED 
ike    subsequent:   INTSHATIVE    SOBBOUTINSS.THE 
OSEINAIE    SYSTEM    IS    rEHHED    MAP,     I.E.,     Y     POINTS     NORTH 

**»#«4 ********************************************* 

OS 

G1  .AH1.AI  1  ,AJ1  .AJ2 

ELCS,  VELOT,V'ELCC,N,aN  EW  ,  U 

WCACC,AN,MCONT 


TEM?,UOLD, VNEW,7TZMP,VOLD, 


GT-0)  GO  TO  10 
ELON*  (AG1/AJ1) 
ELCN*  (AH  1/AJ1) 
ELON*  (AI  1/A J  1) 
UE 


C*«  ***%***  *5>  ***********  «***»***  *  »*  **»»*****   **»#»**»»3J****»******J<**4**«  ** 

C    SUEBOUTINE    MVDOTS 

C  MVDOTS  (MA?     VELOCITY    DOT    COMPONENTS)      COMPUTES    THE 

C  LINEAR  ACCELERATION    COMPONENTS 

C  IN    MAP  COORDINATES.      (Y     ECINTJ    NORTH) 

SUBROUTINE    MVDCI3 

COMMON  /AEC2/  XN EW , C ELX , 1 IEM P , XOLD , Y K EW ,DSLY , YTEMP , YOLJ.ZNEW ,  DELZ, 
1ZIEMP, 20LC 

COMMON  /AEC3/  VELCN  ,  VELOT  ,  V  ZLCC,  N  ,  UN  EW  ,  JTEMP  ,  30LD  ,  V  N  EW  ,  VTEM  P  ,  70  LD, 
1WNEW .WTEME.WCLD 

COMMON    /AEC4/     AG  1  ,  A H  1 , A  1 1 , A J  1 , AJ2 

COMMON     /AEE1/     CDGT , V  DOT , W DOT  , 

CCMHON    /AEE5/     EW  C  ACC  ,  AN  ,  M  CO  NT 

ACC=(VELON**2-VELC0**2)  /  (2*AJ1) 

UL0T=ACC*  (AG1/AJ  1) 

VDOT=ACC*  (AH1/AJ1) 

iCOT-ACC*  (AI1/AJ1) 

RETURN 

END 
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C*** *********** 

c 

SUBBOOTINE    DE 

c 

c 

c 

c 

£****»********* 

SOEROUTIN 

COMMON     /A 

1ZTEMP,ZOL 

COMMON     /A 

1 WNES.WTEM 

common  /a 

C0M30N    /A 

common   /a 

common   /a 

DELX=aOLD 

DEIY=VOLE 

DELZ=WOLE 

IP     (ABS(E 

IP      ASS    : 

IF     (ABS(E 

RETURN 

END 

**** 
LVEC 


«*  *  «  j  *  *  **«  a  *** 


E    DZ 

BC2/ 

C 

EC3/ 

J,  WO 

BC4/ 

ED2/ 

ESI/ 

EE5/ 

♦DEL 

♦  DEL 

♦DEI 

ELX 

ELY 

ELZ 


DELV 
EQOA 
IT  r 
EXCZ 
**  ** 

LVEC 
iKE 

VEL 
LC 
AG1 

VST 

CDC 

EWE 

TEE* 

TEE* 

TEE* 

GT. 

C-T. 

GT. 


*****<****  ********************* 

TANDARD    DY; 


S,D 
CM, 


-A  < 


AH 


v; 

ACC 
.5* 

.5* 
.5* 

ABS 

AES 

ABS 


ELX  ,  X 

VELOT 

1.AI  1 

,7^AX 
ECT  ,  A 

,  a;j  ,  :i 

UDOT* 
VDOT* 
WDOT^ 

(AG  1 

(AH  1 

[ah 


,v 


HE  ,  XCLD,  Y  NEW  ,  DELY  ,  YTEMP,  YCI.  C,Z 
SLCC,N,DNEW,  'JT  Eh?  ,  'J  OL  D,  V  N  EW  ,VT 

J1  .AJ2 

MAX  1, VMAX2,EELTE2,DZLTV, D2LTAZ 

NT 

LTES^*2 

LTES«*2 

LTEE^*2 

DEIX=AG1 

D  E  L  Y  =  A  H 1 

delz=ah 


********* 

AHIC 

REHENTS. 

ESTS 

YPOINT 
********* 

NEW    E  E  L  Z  , 
ESP, VOLE, 


C**  *  ***** 
C  SD3ROUI 
C 

c 

C** ****** 

SD3 

COM 

1ZTE 

coa 

1WNE 

cca 

coa 

,     cca 

XTE 

YTt 

ZTE 

IF 

IF 

IF 

RET 

END 


***  ** 

ine   r 


SOU 

aos 

MP, 

MON 
A,  A 
HON 

HON 

aoN 
ap=xo 

mp=yo 
ap=zo 

(DELX 
(DELY 

(DELZ 
URN 


****************  ********* 

MPPNT 

THEEKT     (TEMPORARY    tO 
POSITION    IN     SPACE    3A 

************************* 

mi  T»       T»   j  n  r   »i  T 


********************************* 


INT 
3ED 


up 

*** 


NE    TMPPN 


AEC2/ 
LD 


XN 


:ELX , XTE MP  ,  XCL 

AEC3/    VELCN, VELOT, VELCO,N 

MP, WO  IE 

AECU/     AG  1,AH1,AI  1  ,AJ1  ,AJ2 

ABD2/     ?SIALL,VMAX,VMAX1,V 

AEE5/     f  WE  ACC,  AN  ,  MCONT 

LD+DELX 


D,X 
,UH 


ESERAT 

CN    THE 

*  **  **  * 

,  D  Z  L  Y  , 
DTSMP  , 


SAT 
DELTA 

**  *  **s 
Y  T  Z  M  2 
UOLD, V 


EMPORa 

7  2CTO 

*  ***** 

YCED.Z 
NSW,7T 


2Y 

.IS 

********* 

:;  z  w  ,  e  e  l  z , 

EMF,VOLD, 


MAX2,CELTEE,DELTV,  DELTZ 


L E  ♦  D  £  L  Y 
LD+DEIZ 
.  EQ.  AG1 
.EQ.AH1 

.Eg.  ah 


XTEMP=XNEW 
YTEMP=YNSW 
ZT  2MF=  ZN  EW 
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£***»***********«*****«********** *************************************** 

C  SUBROUTINE    THPVEL 

C  TSPVEL     (TEaPGRARi    VELOCITY    COMPONENTS)     GENERATES 

C  THE    VELOCITY    COMECNSNTS     ASSOCIATED    WITH    THE    TEMPORAi 

C  POINT    IN    SPACE      (HAP    COORDINATES). 

SUBROUTINE    T.1PVEL 

COSMOS    /SEC2/     XNEW,DELi  , XTEa P  ,  XOLD, Y N EW  .  DELZ  ,  ZTEMP  ,  YOLO  ,  Z  N  EW  ,  DSLZ, 


L?Y 


10 
20 

30 
HO 

50 
60 


:OL3 


CCSaON    /AEC3/    VELCN, VELOT,VELCC,N,UtI2W, UTSBP,UOLD, VNEW ,vt  ship,  void, 
18NEH,«iTEMP,HOIE 
COfltlON    /AEC4/     AG  1  ,AH  1,AI1  ,AJ  1  ,AJ2 

COMMON    /ABD2/    ?STAII.,VHAX,VMAX1,VHAX  2,  DELTEE,  J  ELT  V,  DELTAZ 
CCIiaON    /AEEV    UCCT,  7ZOT  ,  WDOT 
COaaON    /AEE5/    FSDACC.AN, 3COHT 
DTEllP=[JOLJC*-Oa01*  DELTEE 
VTSaP= VOLD+7D 01* DELTEE 
HTEHP=SOLE*W DOT* EELTEE 

IF     (A3S(0TSaP)  -GT.ABS  (UNEW)  .ANC.  aCONT.EC.  1)     UTEaP  =  UNEV 
"  ,A3S(7NEW)  .AHD.aCOST.EQ.  1)      7TZaP=7NEW 


IP     (ASS  (VTEa?)  .ST 
A3 

(d: 

DE 


IF 

IF 

IF 

IF 

IE     (DELX 

UDOT=0. 

GC    TO    20 


3 S (STEM?)  .GT.ABS  (WN'EW)  .AND.  .1CONT.ZC..  1)     W 
SLX.ZQ.AG1)     cte:ip=unzm 
ELZ.EQ.  AElj      VTZa?=VNZW 


TEMP-WNEil 


0ELZ.EO.AI1)      STZivP=WMEW 
".HE.0.  )     GC    TO    10 

CONTINUE 


IF     (OT  EHP.EQ.  UNEW)     0  COT=  {  0TEM  E**  2-UO  LD**  2)  /  (  2*  DELX) 

CONTIN  UE 

IF     (DSLY.NE.O.)     GC    TC    30 

VDOT=0. 

GC    TO    40 

CONTINUE 

IF    (VTZaF.ZQ.7NEV)     7EOT*  (  VTEME**2-VOLD**2)  /  (2*D2LZ) 

CONTINUE 

IF     (DELZ.NE. 0. )     GC    TO    50 

iDOT=0. 

GC    TO    oO 

CONTIN  OE 

IF     (WTEaE.EQ.WNE3)     W  DOT=  (  WTE  a  E**  2-WO  LD**  2)  /  (  2*  DELZ) 

CONTIN  UE 

VELOT=SQBT  (OT  E3P  *  *  2  *  VTEa  ?**  2  +  STSHP**  2) 

RETURN 

ENC 


C    SUEROUTINE    INHTRM 


•  *»»»*»*«.  «»•»•***»:»«  ««*»*aa** 


C    SUEROUTINE  INHTE3 

C  INETFa     (INITIAL    fCTATIONAL    T  R  AN  S  FOria  AT  ION)     T 

C  BAP    COORDINATE    CCaPONENTS    TO    A    SYSTEM    USED    3 

C  CYNAaiCISTS      (Y    PCINTS    SOUTH    AND    Z    POINTS    DOW 

C  **   ♦  **  ******  **************  ***  **    «*a«.3»a*»*    »»»*.***«xt**»*»»«».*s* 

SUEROUTINE    INRTRa 

COMMON    /A3C3/     VELCN , VELOT ,V2LCC, N , UN EW , UT EMP , J OLD , 7  NEW , 7T : 
1WNEW,WTiaE,WOLE 
COBBON    /A3E1/     QDCT.VEOT ,WQOT 
CGaaON    /AEE5/     FWCACC.AN,  aCONT 
COMaON    /A3F1/     01  CV1  ,W1,U2, 72 .92, 03,73, W3 
COaaON    /AEF2/    UC  1  ,7E  1,WD1  ,U D ^  ,  V D2 , * D 2 , UD3  , 7D3,  WD3 
D1=UTSaP 


RANSFORaS 
Y    FLIGHT 
N) 

41  I  4   *«»  *  ** 

:ap,70LD, 


ui=UTsap 

V1=-7TEaE 

H1»-WTEME 

UE1=UDOT 

YD1=-VDOT 

8D1=-SDOT 

RETURN 

ENE 
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C    SDBH0D1INE    ANGLES 

C  ANGLES    COMPUTES    THE    ANGLE    CHANGE    INCREMENTS    CAUSED 

C  BY    tfCVESENT     PORWAFD    TO    THE    TEMPORARY    POINT.  P  SIHEW 

C  IS    TEE     EEADING    CHANGE,     HEFSRENCED    TO    THE    X    AXIS. 

C  TEENEB    IS    THE    PITCH    CHANGE    .REFERENCED    TO    THE 

C  HOaiZCNTAL     PLANE.    PHIIiEW    15    THE    ROLL    INCREMENT    AEOUT 

C  THE    i    AXIS. 

SUBROUTINE    ANGLES 

COMMON    /AEC2/     XN£H,DZLX,XT2MP,XCLD,YNZ5,DSLY,YTSM?,Y0LD,ZNEW,r.2LZ, 
1ZTEMP    ZOLD 

COMMON    /AEC3/     7ELCN, 7ELOT ,7  EL 00, N , UN EW , UTEM? , UOLD , V NE « , 7T E MP , VO LC , 
ISNEW.STEKP.iJCLE 

COMMON    /AEC4/     A G  1  ,  A H  1 , AI 1 ,A J  1  ,  AJ 2 

COMMON    /AED1/    AA1,AE1,AC1 

COMMON    /AED2/     VST ALL , 7M A  X ,7 M A  X  1 , VMAX 2 , DELTES , DELT V , DELTZ 

COMMON    /AEDU/    ESIKE1  .THEN  EW  ,  PHINEW,  PSICLD,  THEOLD,  PdlOLD 

COMMON     /AEE5/     EW  C  ACC  ,  AN  ,  MCO  NT 

DS  =  SORT  (DELJt**2*L)ElY**2  +  D2LZ**2) 

IP     (DELX.NE.O.)     GC    TC    10 

IF     [DELI-EQ.O--AND. DELX.  LT.O. )     PSINEW=AA1 

IF     (DSLX.Ey.  J-.AND.DELi".  GT.  J.  )     PSINE3=-AA1 

GC    TO    20 
10  CONTINUE 

PSINE»=-ATAN  (  DELY/DELX) 

IF     (DELI-GT.  J..AND.DELY-  EC.  0.  )     PSI'.iSW=0. 

IF       DELX.LI.  0.  .  ANC.CZLY.  LI.  0.  J     PS  IN  E  S*  A  B  1  +  PS  IN  EW 

IF     (DELX.LI.  0.  .AND. DELI.  EC-  J.  )     PSIN'2W  =  Ad 

IF    (DELX.LT.  0. -AND. DELY.Gi.  0. J     PSINE  a=P£IBE3-AB1 
20  CONTINUE 

THENEW= ASIN ( DEIZ/CS) 

IRNRAT=(P£INE«-PSICLj)/DELTEE 

IF     (PSINEW.  3T.0.)     PHINEW  AT  AN  ( ABS  (TR  N  S  AT*  7IL0T/9  .  79  5  3)  ) 

I?    (PSIMES.LI.O.)     PHINE:f=-ATAS(AoS(T  ENuSI*VELOr/9.7953)  ) 

IP    (PSIHE1.  Esi.PSICLC)    ?HINEh«PHIOLi3 

RETURN 

END 


C    SUBROUTINE    ROTRAT 

COMPUTES    THE    ANGLE    DCT 


COMMON     /L_ 
1ZTEMP, ZOLL 

COMMON     /AED2/     SSTALL  ,  YM  A  X  ,7  MA  X  1 ,  7  MAX  2  ,  D  ELTZE,  D  EL  1 7  ,  DELTZ 
COMMON    /AEDJ/    FS I  EOT ,TH SDOT , ? HIDOT 

COMMON  /AED4/  ESINEH  ,TH  E  N  ES  ,?  HI  NEW ,  PSICLD  ,  TH  EOLD,  ?H  IOLD 
COMMON  /AEE5/  FW £ ACC , AN , MCC NT 
PSIDOT=(PSINZW-FSIGLD)/DELTEE 
TH£DOT=  (TEENEW-TbEOLCJ/DELIEE 
PHIDOT=  (PHINE»-PHICLD)/DELTEE 
BETURN 
END 
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C    SUBROUTINE  ACTRM1 

C  ACTRS1     (AIRCRAFT    TRANSFORMATION    MATRIX    #1)     EFFECTS 

C  ROTATION    OF     AIJCSAFT    ABOUT    THE    21     AXIS     (?OS    Z 

C  POINTS     CBN    TO    EARTH) . 

SUEROUTI.NE    ACT3M1 

COMMON     /ABD~/     ESISEfi  .THES  EW  ,  ?HINE»,  PSIGLD,  T'dZOLD,  PHIOLD 

COMMON    /AEE5/     EW  EflCC  ,  AN  ,  HCOHT 

COMMON    /ABF1/     G  1  ,  V  1  .  W1  ,  U  2  ,72  .  S2  ,  U3,  7  3  ,  W  3 

COMMON    /AEF2/     U C  1  ,  V  £  1 , 4 D  1  , J D 2  ,  VC2 , W D 2 , U D3 , 7D3 , WD 3 

ANG=PSINE» 

U2=COS  (ANG)  *0  1+SIN  (ANG)  *71 

7  2=- SIN  (A  NO)  *  U1+CC3  (A  NO)  *71 

M2  =  W1 

UD2=COS  (ANG)  *UE1+SIN  (ANG)  *7  D  1 

7D2=-SIN  (ANG)  *  UD  1  +CC  S  (A  KG  )  *  7  D  1 


WE2=WD1 

RETURN 
END 


C ***************************************** *»*************»*******#*»**** 
C    SUERCUTINE    ACTRM2 

C  &CTSH2     ROTATES    THE    AIECaAFI    ABOUT    THE    12     (RI3HT    WING) 

C  AXIS. 

SUBROUTINE    ACTRM: 

COMMON     /AE34/     £S  I  N  E  W  ,TH  E  N  EW  ,  ?  tl  KEH  ,  ?S  IC  I  D  ,  THiiOL  J  ,  Pti  10 L  3 

COMMON    /AEE5/     c  W  I  iCZ.  AN  ,  .1  CO  NT 

COMMON     /ABF1/     U  1  ,  V  1  ,  '«  1  ,  U  2  ,7  2  ,  W2  ,  0  3  ,  7  3  ,  W  3 

COMMON    /AEF2/    DC  1 ,  VC  1,5"  D  1  ,UD  2  ,  WD2,«'0  2.  0D3  ,  VD3  ,  WD3 

ANG=L'tiENEW 

U3  =  C0S  (ANG)  *U2-3IN  (ANG)  *W  2 

in-m 


73  =  72 

W3  =  " 

UD3=C0S  (ANG)  *UD2-SIN  (ANG)  »WD2 

7C3=7D2 

WD3  =  SIN  (ANG)  *GD2<-CCS  |ANG)  *WD2 

EETURN 

END 


J3=SIN  (ANG)  *'J2+C0S  (ANG)  *«  2 
JD3=C0S  (ANG)  *UD2-SIN  (ANG)  *W0; 
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C    SUBROUTINE    ACTSM3 

C  ROTATES    AIRCRAFT    ABOUT    THE    :<3     (HOSE)     AXIS 

Q-^m  *******************************************************************  ** 

SUBROUTINE  ACTBM3 

COMMON  /AEDu/  ESINEW ,THENES, PHINEH, ? SIO LD , THEOLD , FH IOLD 

COMHON  /AES5/  P8C ACC ,AN , MCONT 


1,V1,W1,U2,/2,W2,'J3,7  3,W3 

D1  ,  7D1  ,  »D1  /J02.VD2  ,  i  D  2  ,  U  C  3,7  03,  *03 

AC,  7 4C,« AC,  U DOT AC,  720 IAC , SDOT AC ,P, 0., 


COHHOH    /AES5/ 

COMMON    /AEFV    0 

COMMON    /AEF2/     CD 

CCaaON    /A£F3/    u 

ANG*PHINE« 

UAC=U3 

7AC=C0S  (ANG)  *  7  3*- SIN  (ANG)  *W3 

H  AC=-S  IN  (ANG)  ^73+005  (AM  G  )  *W  3 

UD0TAC=UC3 

7DCTAC=CCS  (ANG)*VE3*SIN  (ANG)  *WC3 

HLCTAC=-SIN  (ANG)  *VD3-h:0S  (ANG)  *HD3 

RETURN 

END 


R 


C *****#***** ************************************************ ************ 
:    SUBROUTINE    ACEVEL^ 


..CR7EL     IAISCEAFT    ROTATIONAL    7EL0CITIES)     COMPUTES    THE 

BCTATIC'JAL    VELOCITIES    IMPOSED    ON     THE 

AI2CEAFT,    IN    THE    EOTATIOKAL    OR    AI2C3APT    COORDINATE 

SYSTEM.     (X     ALONG    THE     10  SE,     1    OUT    THE    SIGHT    rfING, 

Z    CUT    THE    3  0TT0H    CF    THS     AISCSA?'!." 


SUBROUTINE    ACRVEL 

CC2M0N    /3ED3/     ESICOT,THEDCT, PHIDOT 
COMMON    /AED4/    ESI  M'A  ,  THEN  EM  ,  EHIKEW, 
CC3H0H    /AEE5/     £5  L  ACC  ,  AN  ,  .'.CD  NT 
COMMON    /ABF3/     UAC  ,  7  AC  ,A  AC  ,  JDOT  AC  ,  7C 
'ANC-1  =  r  HENEW 
AHG2=?RINEW 
F=EHID0T-SIN  (  ANG1)  *PSIDOT 

Q=C0S(ANG2)  *THEDCI  +  CCS(  ANG1)  *SIN(ANG2)  "F3I50T 
R=-Si:l  (ANG2)  *TEEDCT+CCS  (ANG1  )  *COS  (AN  G2)  *PSIDOT 
RETURN 
END 


a>**««*««<*iit<*a;<*««:*>«4it«*v* 


rt*4M>Mt*o«<i<>>t«w>«>3t.<s«it<:>ti 

P3IC  Li),  THEOLD, PHIOLD 
UAC,  7  AC,  4  AC,UDOTAC,VDOTAC,  »DOTAC,P,0.,  R 


162 


c** 

c  s 

c 

c 

c 

c 

c 


*   ********     3*    = 

C3R0CTIN2    AC 


*  *  *  * *****  *** 

SUE  ROUT  III 

COMHON    /A 

1ZT5MP, 20L 

CO.1f.OM     /A 

comboh  /a 

CO. 1  HON     /A 

ax=udgtac 
ay=vdg iac 

AZ=wDOTAC 

A=-7AC*R 

E=HAC*Q 

C=UAC*R 
D=-WAC*P 

E»-u&c*g 

F=VAC*P 

RETURN 

END 


****  * 

ACC 

( 
A 

S 
F 
C 

***** 
£  ACA 
EC2/ 


******»********************************<i**** 


AIRCRAFT  ACC 
CCELE3ATI0NS 
PACE    AND    THE 


EE3/ 

EE5/ 
EF3/ 
-7AC 
«-UAC 
-UAC* 


LEBATIOHS)     PUT 

RESULTING     FBCH 
cev-t     »»u     i  nfi     ROTATIONAL     ACC 
BOA    BA&UVEBING.     WHAT    APPEAR 
F    TEE    CLASSIC    EQUATIONS    OF 
******* ******  ************** 

CC 

iHEii,2ZLX,XTEMP,ZCLD,Y  SEW,D 

AX, AY  ,AZ 

r WE  AC*, AN,  a  CO  NT 

GAC,VAC,SAC,UD0TAC,VD0TAC,9 
*B+WAC*C 
*B-*AC*E 
*r  +■;  ir*  ? 


S  TOGS 
TRANS 
ELERAT 
S  3EL0 
KOTIOS 
****** 

ELY, Y? 


THES 
LATI 
IONS 
W  IS 
F08 
**** 


THE  LI 
ON  THRO 
RESULT 
THE  Ld 
AN  AIR 
*«*  ***  * 


:***** 

NEAR 

UGH. 

IMG 

S 

CRAFT. 

******** 


5T OL  Z,  Z  M  E H  ,  C E L Z , 


DOT  AC,P,0., a 


C+VAC*E 


c** ******************* 

C 

SUEHCUTINE     ACLMTS 

c 

ACL 

c 

ACC 

t» 

FLI 

c 

TbE 

C 

ECU 

C 

ABE 

C 

IN 

c 

CF 

(2********************* 

SUBROUTINE    ACL.1T 

CC2B0N    /AEE.3/     AX 

coaaos   /aee4/  ih 

CCJiaON    /AE£5/     E'W 

CALL    THRUST 

IF     (AN.LT.ANBAX. 

c 

IF (AN.GT 

BETURN 

END 

*  *  **  ***  ******************************************* 


SIS     (AIBC3A 

ZLERATIGNS 
GHT-PAT!'.    TR 

AI5C2AFT. 
A 1 1 C  \\  S    OF    A 

LARGER    THA 
MAGNITUDE    J 

."CTICN    ARE 
***  *  ***  *  *  ** 

S 

, AY ,A7 

aAx«AsaAX  ,c 

C ACC, AM, 3  CO 
ANE.  fWDACC. 

.  AN  a  AX.  o a.  F 


FT    II  JIT  A 
RESULTING 

AJ  ECTORY 
THIS    IS    E 
OTICN.     I? 
N     ALL0WA3 
NTIL    THE 

EQUATED. 
********* 


TICSS)     COMPARES    TH 

FROM     A     PROPOSED    2 

TO_THE    PHYSICAL    LI 

3SENTIALLY    THE    SHS 

THE  TRAJECTORY  \C 
LE  THEY  ARE  ADJUST 
aaS    AND    LHS    OF    THE 


****************************** 


OVE 

ALONG 

A 

:'.tt 

ATICNS 

Cf 

OF 

T  !i  E 

CZI* 

EEATIC 

\is 

ED 

D  0  5i  N  W  A  i 

iZ 

EQ 

UAIICNS 

LBAX,J: 
NT 

LT.TH3AX) 
WDACC.GT. 


TO,  SH0S3.L,  WL,CD0,CEK,  AREA,DTDH 

CALL    300STR 
THMAX)     CALL    REDUCR 
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c  sa 

c 

c 

c  **  * 


10 


20 


30 


40 


50 


60 


70 


80 


bhootihjs  accsra 

eccsts   INCREASES  THE  lineab   accslesations  until 

HAXI20B    ALLOWABLE    PEHF0  5HANCE    IS    REACHED 
mm**  *******  *********************************************  ****** 
SUEBOUTINE    30CSTH 

COMMON    /AEC2/     XN  2  '»  ,D  ELX  ,  XT2  MP  ,XCLD,  1  t.EW  ,  DEL-/  ,  If  TEMP,  TCL  2,  2  N  EW  ,  CELZ, 
1ZTEMP, ZOLC 
COMMON     /ABC4/    AG1  ,AH1 .AI 1  .A J1  ,AJ2 
COMMON    /AEE1/    UCOT,  V  DOT  ,  SDQT 
COMMON    /AEE3/     4X,AY,AZ 

COMMON    /AEE4/    THMAX,  At-'M  AX  ,CLM  AX,GEE,  TO,  BH033L,  WL  ,CDO  ,CDK,  A8E  A,DTDH 
COMMON     /AEE5/     F W C ACC  ,AN , MCO NT 
MCCNT=  1 
CONTINUE 
1=0 

IF     (AG 1-ECDELX.CS.AG1. ECj.O. )     GO    TO    20 

IF     (ABS(AG1)  .LT.  AES  (AH1)  .  AND.  AES  (AG1)  .LT.ABS  (All)  1     1=1 
IF     (I-  9E.1V    GG    TO    20 
UCOT=1 . 0  2*0 DOT 
CONTINUE 
IF     (AH1.EC.DEII.OB.AH1.  3Q.0-)     GO    TO    30 


IF     (ABS  (AK1)  .  LT.  AES  (AG1)  .  AND.  AES  (AH1  )  .LT.ABS  (AI1)  )     1  =  2 

(I.NE.2)     GO    TO    30 
VECT=1 .( 


IF 


,2}     GO    10 
02*VDOT 
CONTINUE 

IF     (All . EQ-DELZ.CH.AI1. Zy.O. )     GO    TO     40 

IF     (ABS  (AH)  .  LT.  AES  (AG1)  .  AND.  AES  (All  )  .LT.ABS  (AH1)  )      1  =  3 
IF    jl.  HE. 3)     GC    TO    4  0 
WCCT=1 . 02*WDOT 
CONTINUE 
IF     fAG1.EQ.DELX.OB.AG1. 3Q.0.)     GC    TO    50 


IF 


EQ.  A  ES  (All)   .  AND.  AES  (AG1)  .LI.  ASS  (AT1)  )      1=4 


ABS  (AG1) 

IF     (I.JE.4)     GO     iO    50 

0EOT=1  .  G2*UDOT 

WDCT=1 . 0  2*WDOT 

CONTIN  DE 

IF     (AH1.  EQ.DELY.0H.AH1.  ZQ.O.)     GO    TO     60 

IF     (ABS  (AG1)  .  EC  ASS  (AH1  )  .  AND.  AES  (AG1  )  .LT.  Al,S  (Al'1)  )      1  =  5 

IF    (I.  HE. 5)     GC    TO    oO 

UDOT=1 ,02*ODOT 

7EOT=1 -02*VDOI 

CONTINUE 

IF     (AI  1.2Q.DELZ-OS.AI1.  2Q.0.  )     GO    TO    70 

IF     (ABS  (AH1)  .  EC-  AES  (  AH)  .  AND.  ABS  (AH.1)  -LI.  AoS  (AG1)  )     1=6 

IF     (I.NE.3)     GC    TO    70 

VDCT=1 . 02*VDOT 

3DCT=1 -02*WDOT 

CONTINUE 

CALL   S  MLCAL 

CATL     PH^C^T 

IF     (AN.GE.ANM  AX. OS.  FSDACC.G2.  THMAX)      GO    TO    30 

GO    TO     10 

CONTINUE 

IF     (AN.GT-ANMAX)     AN=ANMAX 

IF       F»  CACC.GT.  THMAX)      FW  DACC=T  EEAX 

BETUHN 

END 
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,-*«»•  ******* 
C    SUBflODTINE 

c 
c 
c 

C  **  *  ******** 

SUEHOD 

COM HON 

1 9  HEW, B 

CCS.ION 
CCMHON 

common 

COMMON 
COMMON 
COMMON 
SCONT- 

CCNTIH 

VELON= 

A=VSTA 

IF     (75 

ANG=AC 

AJ2=1 . 

AG1=CO 

AH1=SI 

7ELON= 

CON TIN 

N=0 

CALL 

CALL 

CALL 

CALL 

I? 


****** 
2EEUC 


10 


20 


30 


.1 

a 
s 

T 

iA:i 

GO    TO 

CONTIN 
SET3RN 
END 


****** 

TINE    a 

/ABC3 

TEHE,W 

/Ascy 

/AED2 
/AEE3 
/AEEH 
/AE£5 
/LCC/ 
1 

aE 

7ELCN- 
LL+2.* 
LON.GE 
OS  (£G1 
1*AJ2 
S  (AUG) 
N (ANG) 
71 
UE 

7ELCS 
VDCTS 
KLCAL 
HRUST 


*************************************** 

H 
REIUC3     IS    CALL    FFCM    ACLMT3    AND    SEDUCES 
VELOCITY    AND    ULTIMATELY     POSITION    TO    GE 
ON    TIE    AI2CHAFT    WITHIN    LliillS. 

*************************************** 

EEUC3 

/    WELCH, VELOT,7ZLCC, 3,  UN E«r OTEMP,UOLD, V 

CLE 

/    AG1  ,AH1,AI 1  ,AJ1  ,AJ2 

/    VSTALL.VMAX  ,7 M  A  X 1 , VMAX 2 , D EL  TEE , DEL  I V , 
/     AX,AY,AZ 

/    THMAX, ANM AX  ,C  LM  AX  ,GS2  ,  TO  ,  SHOSS  L  ,  «'L  ,C  J 
/    FWESCC.AN.aCONT 
X  1,Y  1,21,7  1  ,  ITS,  LTH2 


***  ***  * 

THE    "N 

T    LOADS 

*  *****  * 
N  EW , 7T  S 


***** 

e  a " 
****** 

MP,70LE, 


DELTZ 

0,CDK, AfiEA,DTDH 


DEITY 

DELT7 

.A)     GC    TC   20 

/AJ2) 

*AJ2 
*AJ2 


LE.ANHAX.ABD.F3DACC.  LE.THHAX)     GC    TC    30 
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£****************************************************«****************** 

C    SDBfiOOIIHE    SMLCAL 

C  (SMALL    CALL)     IS     A    SMALLER     VERSION    Of     (BIG    CALL)      AND 

C  USED    IN    THS    ITERATIVE    LCGES    OF     (AIRCRAFT    LIMITATIONS) 

C***«************************** ***********  ****************************** 

S03ROUTINE    SMLCAL 
C  CALL    HVDOTS 

CALL  DELVEC 
CALL  THPFNT 
CALL  TMPVEL 
CALL  INRTSM 
CALL  ANGLES 
CALL  ROTSAT 
CALL  ACTEM1 
CALL  ACTEM2 
CALL  ACTRMJ 
CALL  ACRVEL 
CALL  ACACC 
EZTURN 
END 


(3*****************************************  ****************************** 
C    SUBROUTINE     THRUST 

C  THRUST    15    USED     3Y     (AIRCRAFT    LIMITATIONS)      TO    COMPUTE 

C  TF.E    AVAILABLE    FCBSAHD    ACCELERATION     oASZD    OPOK     THRUST 

C  CRAG,     G-L3ADING,     POSITION    IN    SPACS    AND     GRAVITY. 

C****************************** ***********  ****************************** 

SUBROUTINE    THRUST 

COMMON  /AEC2/  XNES  ,DELX  ,  XT2KP  ,2CLJ,¥  NEW  ,  DEL?  , YTEMP,  If  OLD,  Z  NEW  ,  CSLZ, 
1ZTEMP    2  0  L I 

COMMON  /AEC3/  VELCN, VELJT ,7 S LCC, N , UN EW , UTZMP , UOLD, V N EW , VT ZM F , YO L C, 
1  W  N  E W    A T  E 25 E    it'ClC 

COMMON  '/AEDU/     f  SINEW  .THEN  £3  ,  PHINEW,  PSICL j,  THSOLD,  PHICLD 

COMMON    /AEEJ/     AX,AY,«Z 

COMMON     /AEE4/     1HM AX , ANM A  1  ,Z  LM AX ,GZ£  ,  TO , 3HOSSL, «L , CDO , CDK , AREA,DTDH 

CCMMON     /AEE5/     EM E SCC  ,  AS , 3COST 

ANG  =  THENESi 

TBaCD=  AX/Gir" 


AN  =  SQRT  (  AY**2*AZ*»2)  /GEZ 

SIGMA=  (1+CTDH*ZTZMP/TC)  **4.257 

EHOALT=RHC SSL* SIGMA 

CL  =(2.*  A  N**L)/  |BHCALT*VZLCT**2) 

DRAG-=AN*  (  (CDO+CDK*CL»*2)  /CL) 

FBDACC=SIN  (ANG)*THEv.D+-DRAG 

RETURN 

END 
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C   SOBBOUTINE  XCBNGE 

C  ONCE    THZ    EQUATIONS    OF    MCTI 

C  PROPOSED    LOCATION    (TZa?)     I 

C  THE    CURriENT     LOCATION'     (OLD) 

SUBROUTINE    XCHNGE 

CCMaON    /AZC2/     XNES,CELX,Xt£iiP  ,XOLD,T3Ea 
1ZTEKP.Z01D 

COaMOM    /AEC3/     7ELCN, 7ELOT,7ELCC, N,UN EW, 
1WNEW, KTEMP.aCLD 
CCaMON    /AED4/     ESIN'EW, THEMES,  ?HINEW,PSIO 
XOLQ=XIZaE 
ICLD*"(TEME 
ZCLD  =  Z.TEKP 
OOLD=UTEME 
VOLD=VTZaE 
WCLC=WTEaE 
PSIOLO=?SINSW 
THEOLD=ThE:.'EW 
PHIOLD=PHi;iE'W 
VELOO= VE1CT 
RETURN 
EMC 


***************  »*«***«»**«* 


CN 
HE 

Ail 

E    SATISFIED 
a?    LOCATION 

AT 

as 

THE 
CCaES 

*********■*****.*  ft*tt« 

*»»***** 

,d: 

ZL1 

,  YTEMP,YOLD 

,  2 :; 

.1  H     ,    i-  W  1-  U  , 

ot: 

3KP 

,UOLD,VN£H  ,' 

/TZ 

HP,  VOLT;, 

LD 

,TH 

EOLD,?HIOLD 

3U3BOUTIUE    WAYPNT 

THE    RELEVANT    ? A  a* METERS     FOB    THE 
ASSIGNED. 

TINE    iAYt:.T 

AEC1/     WX  _(  10  0  0)  ,  W  Y  (l^uC)  , «Z (1  GOG)  ,  SU 


C 
C 
C 

C  »  «  4*  ......  a 

S0E20U 
COMMON 

1)  ,WH(1 

common 

1Z1EMP, 

ccaaoN 
common 

COMMON 

common 

WX  (ICT 

MY  ICT 
IZ (ICT 
UQ  (ICT 

av  (ict 

WW  (ICT 
WH  (ICT 
WP  (ICT 

wa  (ict 

WG  (ICT 
T (ICT) 
BEIUBN 
EMC 


/ABC  1/      «X  (  lUua),^   (l^t),.^  HJUO),«lji 
00  0)  ,  WP  (1000)  ,  Wi(  10vj0)  , Wfi  (lOJO  )  ,  I  (1000 

/A3C2/     X.iZW,  JZLX  ,  XTS;iP,XGLD,  1  NEW  ,DELY 
ZOLD 

/AEC3/    VELCM,  VELOT  ,  7  ELCC  ,  N  ,  UN  E  W  ,  UTZd? 
TEHE.aOlD 

/AED2/     VST  ALL,  7a AX  ,7  a  AX  1, VMAX 2,DELTZZ 

/AEDU/     PSi:,EW,THZNEW,?KIN£W,PSIGLD,Td 

/AEE5/     EW£ACC,AN,  aCONT 

=  XCLD 

=  ¥CLD 

=  20LD 
)  =LCLD 
) =  VCLD 
) =WCLO 
) =-PSIMES 
) =THENEH 
) =-EHINEW 
)  =AN 
=  T  (ICT-  1)  +DELTEE 


****a*****«** 

*  ■*  *  a 

*«r  *  a* 

caaaENT  poijj 

T    AS 

E 

S**3******»***«:** 

**  *  ** 

10  00)  , W V  (  1  00  0 

)  ,ICT 

,  l'TZa?,  IOLD,Z 

)  ,  w  W 

MEW  , 

(1000 
ZELZ, 

,UOLD,  VNEW//T 

zap, 

VCLD, 

,DZLTV, DELIAS 
EOLO,  PHIOLD 
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C    SUBROUTINE    FILE 

C  TfcE    COBBEHT     POINT    IS    IS  BED IATiLI    SAVED. 

in  i 

ICQ 


RETU2N 
10  CONTINUE 


LIR=0 

WHITE     (1  1  .20)     T  (ICT)  ,*X  (ICT)  , UY(ICT)    ,iZ  (ICT)  rS0(ICI)  .  WV(ICT)  ,  WW(IC 
11)  ,  «H  (ICT)  ,-iP  (ICT)  ,  SB  (ICT)  ,WG  (ICT)  ,  LTR 
EETORN 


20  FORMAT     (11  (S10.4  ,1X)  ,13) 

ENC 


C    SUEHCUTINE    GRAFIX 

C  THE    CORTiENT     POINT    ALCNG     THE    T3AJECTCRY    TO    THE 

C  CESIEEC    HA'fPGINT    IS    PLOTTED. 

SUBROUTINE    G3AIIX 

COMMON     /ASCI  /     *X<1000),«Y(100Q),aZ(1C00),aU(10OJ)  ,  h  V  (  1  000  )  ,  a  a  ( 1  0  CO 

i)  ,wh(1  000)  ,a?  ( iouo)  ,  wa  ( 1030)  ,  »g  (1  ouo  )  ,  i  (icoo)  ,icr 
common  /:i:n/  diax,;iAxx,  :4.iny  ,a  axy,;iin  xi,.-axxi  ,;ii.;x2,:'.axx2 

?X1=aX  1ICT-1) 

PX2=aX  (ICT) 

PY1  =  »Y  (ICT-1) 

EY2=aY  (ICT) 

CALL    U  IN     [MINX  ,MAXX,  16000., 120C0. ,0) 

CALL    GSVECT     (0.  ,EX1>?Y1) 

CALL    GSVECT     (1.,P12,PY2) 

CALL    GSF5CE 

RETURN 

ENC 
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c  s 

c 

c 

c 

c** 


10 
20 


30 


OcfiCUTINE     EE5CHK 

ERRCHK  CHEC 
LIMITATIONS 
&UICHATIC. 

SGBROUTINE    ERRCHK     (IEEE) 
COMMON    /LOC/    X1,Y1,Z1,/1 

coaaoN   /pas4/    afemax.htm 

1RRKAX, STE.AHTF 
C03MON    /TAR/    TARGX.TA3GY 

common   /abcv   wx  nooo) , «" 

1)  ,WH(1000)  ,HP  (  1000)  ,KB{1 
DX=TARGX-X1 
DY=TARGY-Y1 

DIST=SQRT  (DX**2  +  CY**2) 
IF     (DIST.LE.PCE8IM     GO    T 
IF     (Z1.GT.  APP.1AX)     Z1  =  A?P 
IF     (Z1  .Ll-aiMIN)      21=aTHI 
CONTINUE 
IF    (LTR.SE.65.CE.LTH2.3 


****************************************** 


KS    TH 
.     '*  H  E 


E    DESIRED 
NEVER    ?OSS 


WAYPOI 
I3L 


MT    AGA 

COSH EC 


INST    SA 

tions    A 


:1E 
RE 


>»MJM**U>    J«IM«<«*«»U>ltHl«i*HI««»ii 


40 


50 

60 


,1TB, 

I  N,  HT 


Y  (100 
000)  , 


0    10 
MAX 


LTR2 

2AX,  :jO?tlIN,3AALT,  JR'IIN 


IF    (Z1.LT. 

CONTINUE 

IF 

IF 

IF 

IF 

IF 


eAALI)      Z1=cAAL: 


65 


LT3  2.SZ 

Z1  =  2RMI 

zi  =  er;ia 

A  N  D.  3 

lERR 
I  ERR 


LTR.  NE.oo.OE 
Z1  .LT.3R3IN) 
,Z1.GT-32.1AX) 
(DI  SI-L2.3SE:'.Aa. 
DI3T-GT.  SREilAX) 

IF     (DIST.LT.  SEHMIK) 

RETURN 

CONTINUE 

TGIHDG=ATAN2  (DY,  if)  *STD 

IE     (TGTHCG.LT.  0.)     IGTHD 

DX=X1-  ni.  (ICT) 

DY=Y1- *1  (ICT) 

ACH2G=  AT  AN!  (CY  ,  EX)  *=.TD 

IF     (ACHDG.LT.  J.)      ACHCG=A 

HCGL3T= AES (T GT EDG-AC KDGl 

IF     (HDGLS1.LE.5.)     GO    TO 

IE3R=1  0 

RETURN 

CONTINUE 

DIST=SOET  (DX**2  +  DY**2) 

SFEED=SQRT  (HU  (ICT)  «*2«•.^V 
DT=DI3  T/SFEZD 

IF     (DT.GE.2-J3)     GC    TC   50 

IERR=1  1 

RETURN 

CONTINUE 

CON TIN  UE 

BETURN 

END 


.  6o) 

N 

X 

1ST.  G 
=  5 
=  13 


0) ,WZ  [1 000 
SG  (1000)  ,1 


GC  TO  20 
GC  TO  6  C 
E.3RRMI  N) 


)  ,  W  0  ( 1 

(1000) 


0  0  0)  ,  * 

,  ICT 


V (100  0) 


3  R  S  &L  N  ,  3 
, WW  (10CO 


GO    TO    JO 


HDG=TGTHDG+J60. 


CHDG  + 
i*0 


360. 


(ICT) »»2+WW (ICT) **2) 
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C    SUcRO 

c 
c 

c 

c** ♦*** 
s 

c 

1) 

c 

R 

c 

T 

1 

rr 

T 
C 

C    XC7E 
C-- 


UTINS 


C3ROU 

oa^ON 

.  *H  (1 
OM^ON 
i.AL*4 
ALL  W 
X=SX  ( 

Y  =  .JY  ( 
X1  =  TA 

Y  1  =TA 
ALL    3 


AIMPT 


**  ****** 

TINE    AI 

/AECV 

000) ,HP 

/TAR/ 

XX, TY, 

in    lais 

ICT) 
ICT) 
HGX 
2G  Y 

SLI     (1) 


THIS    SUBROUTINE     CASKS    A     LINE    PROP!    THE    CURRENT 
AIRCEAET    POSITION    TO    THE    IAGZT    AS    A    USER    AID    IN 
ALIGNING    30K3    RELEASE    POINT. 

KET 
SiX  (1000)  ,  WY  (100  0)  ,  WZ(1  000)  ,  WU(  1000)  ,  <iV  (1  000)  ,  WW  (1000 
10CC)  , WH(IQOO)  , WG  (  1000)  ,T  (100U)  , ICT 


( 

1ARGX,T ARGY 

TX  1,TY  1 

X,3AXX,  18000., 12CG0. ,0) 


AN£    DRAW    CAS  FEE    LINE    TO    CURRENT    WAYFNT    COORDINATES 


ALL  G 
ALL  G 
ALL  G 
ALL  G 
ETOttS 
ND 


BVECT  ( 
BVECT  ( 
SLT  (0) 
SFBCE 


o.,:x,ty) 

1.  ,1X1,111) 
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c**  * 

C    Sli 

c 
c 

C**  * 


***************»****************a********************»*3t*** 

EEOUTIHE    E1EIM 

THIS    SUEROUTINE    FEOOESTS    TBS    OSES    OPTIONS    All 
THE    GRAPHIC    SUBROUTINES. 

*************** »****b» «»**«*****»***=* **3******* *********** 

SUBROUTINE    ELFIN     (LAST) 

COMMON    /CET/    IGU8,1ENCH, IEXT,ISAa,IMP,KEE,iaPZ 

coaaos  /am/  aiNx,aAxx,aisx  ,aaxY,:iiNXi  ,baxxi  ,aiNX2,  waxx2 

c 

C  C1CSE  GRAPHICS  aOOTISES 

c— 


********* 

D  CLOSES 
********* 


10 


20 


30 


40 

50 
60 
70 
BO 


CA 

IF 
CO 
WR 
RE 
CA 
I? 
CO 
WH 

■  a 

RE 
C  A 
IF 
IP 
WH 
RE 
CA 
IF 
CO 
WE 
RE 
CA 
I? 
RE 
PC 
FO 
FC 
FO 
FO 
EN 


LL    D 
(LA 

NT  IN 
ITS 
( 


AD 
LL 

NTIN 
ITE 
HE 
AD     { 
LL    ? 

(I? 

1I? 
ITE 

AD     ( 

LL    ? 

(I? 
NTIN 
ITE 
AD    4 
LL     r 

(IS 
TURN 

a  a  at 
aaM 

a  a  at 

SMAT 

aaAT 

c 


EBH 

.EQ.J)     GO    TO    20 

.40) 

*)     PIN 

CMS     ( 'CIESC3S    ' ) 

GT.  2. OH. FIN. LT.  1) 

,50) 
,60 

*)     IPNCH 

C3S     (  'CLSSCSN    • ) 

E.EQ.O)     3ETU5H 

H-ZQ. 2)     GC    TC    30 

,70) 

»)     IEXT 

CSS     ('CLRSCSN    ') 

B.  ZQ.  1)     RETURN 


,30) 

♦ )     I  S  A  B 

CIS     ('CLESCSti 

.IT.  I.Ca.ISAR. 


GO    TC     10 


IT.  7)      GC    TO    3 


5  1ri  APE  YCU  FINISHED  SITH  ? 
U3H  OUTPUT  FILE:  J=;«C  CUTPU 
5  1  H  2=  a  I C  E    F IL 

U9H    EXTENDED    OUTPUT:     0-HOT 
29H    aiSSIIE    TYPE    3ETHEES    1 


0 

HIS 
T  ;     1 

2  ON 

3  ANT 
AND 


F1IGH 

=  ?Ou1 
LY;  3 
ED;  1 
7) 


T  T  A  T  H 

PILE 

=  POO  1 

=  SaTE 


:     j  =  .<  0 ; 
ONLY) 
5    SICE 

NDED    CD' 


1  =  YIS) 

FILES) 
PUT) 
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C    SOEHOOTIHE    ?EESST 

C  THIS    SUBROUTINE    WRITES    THE    ?001     AND    MICE    II    FILES 

C  FCE    THE    USER. 

C ****»»»***************»********#****«********»»**************** ******** 

SUERODTINE    PRESET 

COMMON    /AEC1/     iX  (1000)  ,  it  (1000)  ,WZ{1  000)  .HOMO 00)  ,3V  (1000)  ,«»  (1QC0 
1)  ,HH ( 1 000)  ,»P  (1000)  ,WRf  1000)  ,WGH  000)  ,T  (1000)  ,  icr 

COMMON    /PAR 2/     XGU N  (  / )  , i G U N ( 7)  ,  2G  UN' (7)  ,XSAii  ,  YSAM,ZSAS  ,Ga  (7) 

COMMON    /PAR4/     APE  £ AX  ,HT  MI  N,  HT  £  AX  ,  POP M IN  ,  EAALT,  3RM  IN,  33341,  3RRMi:i,3 
1S3MiX,  3TC,AKTF 

COMMON     /OFT/    IG U N  ,  IE NCH , I EXT . ISAM ,1 M E -K E 3 , IMPZ 

COMMON    /NAM/     IM2H  (  2)  ,l'' AM2  (  2)  ,IU3R,  IASR  ,xD2ST 

DIMENSION    X1  0(200)  ,Y1  0  (200)  ,VEL  (209) 

DIMENSION    3CSTAE  (  1000)  ,  TINK  (  1  0) 

DIMENSION    VAT1N2  (203)  ,7*T  3(2  0  £)  ,7  AT5  (20  3) 
c 

C    VULNERABLE    AREA    TABLE    VS    TYPE    1     AND    2    WEAPONS 
C- 

'56 


2< 

3: 

429a,24.b563,o*2.b5d,2i.  o5o3,6*5.551,2*.o968,o*:>.574,2*.65o8,o*7.35 
57, 2*. 6 96  8,6*5.574  .2  *.65bd  ,6*5.  55 1,2*.  6963,6*5.  574,  2*.  6568,  t>*7.  357. 
62*.b9  6d,6*5.574,2*.4t45,6*7.1G7/ 
c 

C  VULNERABLE  AREA  TABLE  VS  TYPE  3  WEAPONS 
C-- 

c* 


DATA  VAT3/2*12.54fO*13.47,2*9.c53,b*10.51,^*9.639,b*11.15,2*12.o< 
16*14. 7S, 2*9. 639, o*11. 15, 2*9. 353, o*10. 51, 2*9. 639, 6*11. 15, 2*12. 64,. 


612. 54, o*13.47/ 
C 

C    VULNERABLE    AREA    TABLE    VS    TYPE    5     WEAPONS 

C 

DATA  7 AT5/8*55-37,5*-.3.  22, 8*47. 10, 3*62. 53, 3*47.  10,3*43.22,8*47. 10, 
18*b2.5  3, 3*4 7.  10,3*5.761, 3*27. 45, 3*33. 07, 3*27.45,o*5.7o 1,3*27. 45, 3* 
23 3. 07, 3* 27. 45, d*5.7o  1,3*4 7.  10, 6*6 2. 5 3, 3*4 7. 10, 3*43. 22, 3*47.  10, 3* 62 
3.53,3*47.10,3*55.37/ 

C 

C    RADAR    CE0S3    SECTION    TA3LE 

DATA  2CSTAB/19*10CO.  ,  19  *  1  00 -,  1  9*  1  0.  ,  1  9*  1  0.  ,  1  9  *  1  0.  ,  1  9*  1  00.  ,  1  9*  10  0  0. 
1,867*0.0/ 

C 

C    CALL    ERRSET    SCPPSESSES    ANY    P03SI3L2    UNDERFLOW     PROoLEMS    THAT    MAY 

C    RESULT    rROM    MANIPULATION    OF    SCENARIO    PARAMETERS. 

C 

CALL    SRRSET     (  2  C  8  ,  5U  ,  -  1,  1  ,  1) 

JAH=0 

C 

C    CARD    2    TIME    INCREMENT    CALCULATION 

C 

TINC=T (ICT) /1 OCC.+C.0003 

C 

C    CARD    6    TIME    INCREMENT    CALCULATIONS 

TINKI=0 

DC    10     1=1,9 

TINK(I)=TINKH-T(ICT)/10 

TINKI=TINK(I) 
10  CONTINUE 

C 

C    FCLLCWING    GENERATES    VELOCITY     MAGNITUDE    AT    EACH    POINT 

C 

DO    20     1=1, ICT 

VEL  (I)  =  SC.3T  (WU  (I)  **2+WV  (I)**2*WW  (I)  **2) 
20  CONTINUE 

C 

C    /////*****PUNCH    PROGRAM*****///// 

C 

c 
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C    OPTION    10    PUNCH    THE    ?Q0 1    CARD    DECK    OH    HICE-II    CARD    DECK 

C 

IF    (IPNCH.SQ.2)    GC    TC  4Q 

C 

C    COMMENCE    PUNCHED    OOTPCT    CF    THE    P001    CARD     DECK. 

c 

C    THE    JCL    CAfiDS. 

C 

WHITE     (1*3,70)      IBAM1  (  1)  ,  INAM1  (2)  ,IHNK,IAaE,IHAai  (1)  jliiAal  (2)  ,ItJHH 

IF     (IDEST.EQ.2)     WRITE    (18,30)      IUNR 

"WHITE     (18,90) 

WHITE     (13,100) 

WHITE        18,110) 

WHITE     (18,120) 

WRITE     (1 8,13  0) 

WHITE     (18,U3 

WRITE     (18,150) 

WRITS     (18,160) 

WRITE     (18,170) 

C 

C    LEADING    BLANK    DATA    CASD    SIGNIFIES     RADAR    MASKING    ANGLE    Ob    ZERO. 

c 

C 

C    THE    OUTPUT    TITLE    CARD. 

c 

WRITS     (18,200) 
c 

C    CA3D    2 

c 

WHITS     (18,18  0) 

WRITS     (18,210)      I(ICT),riNC 

C 

C    THE    2A    CARDS     (MI L E £ TC NE3 ) . 

C 

DO    30     1=1  ,ICT 

WU  (I)  s»0  (I)  *AMTF 

W7  (I    =WV  (I)  ♦AKT? 

WW  (I)  =WW  (I)  «AMTf 

WRITE     (18,220)     T  ( I)  ,  WX  (I )  ,W  Y  ( I)  ,  WZ  (I  )  ,  *  U  (I)  ,  WV  (I)  ,  W  W  (I)  ,  »  H  ( I)  ,  W  ?  (I 
1)  ,WR(I) 
30  CONTINUE 

C 

C    CASD    3     (GUN     EMPLACEMENT    CAaD)  . 

C 

WRITS     (18,240) 

WRITE     (18,250)     XGON  (  1)  ,  ZGDN  ( 1 )  ,ZGON  (  1) 

C 

C    CAfiD    4     (GUN    TYPE)  . 

C 

WHITE     (18,230) 

WRITS     (18,260) 

C 

C    CARD    5 

C 

WRITS     (18,190) 

WRITS     (18,270) 

C 

C    CASD    6 

C 

WHITE     (18,280) 

WRITS     (18,290)      (1INK  (I)  ,1  =  1  ,9) 

C    CARD    7     (VULNERABLE    AREA    TABLE    YS    TYPE    1     AND    2    WEAPONS) 

C 

WRITE     (18,300) 

WHITE     (18,310) 

WRITS     (18,320)      (VAT1  N2  (I)   ,1=1  ,208) 

C 

C  CARD  12  (SXECCTS  RUN). 
C  EXTENDED  OUTPUT  OPTION 
C 

WRITE     (18,330) 

IF     (ISXT.NE.1)      WHITE     (13,350) 

IF     (IEXT.EQ.l1     WRITE     (13,340) 
c 
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C    THE    BEUAISDSH    0?    THE    CARDS    INTRODUCE    SEW     viUN    LOCATIONS,     5UN    TYPE: 

C    AND    VULNERABLE    AREA    TABLES    TO    3E    EXECUTED    3Y    THE    P30GHAK. 

C 

WHITS     (18,240) 

WRITS     (18,250)     XGCN  (2)  ,  YGUN  (2)  ,ZGUN  (2) 

C 

C    EXTENDED    OUTFCT    OFTICts 

WHITS     (18,330) 

IF     (ISXT.SE.1       ..RITE     (18,350) 

IF     (ISXT.EO.  1)     HaiTE     (13,340) 

WRITE    (18,240) 

WRITS     (18,250)     XGCN  (3)  ,  YGUN  (3)  ,ZGUN(3) 

WRITE     (18,230) 

WRITE     (13,360) 

C 

C    EXTENDED    OUTPUT    OETIO. 

C 

WRITE     (18,330) 

IF     (IEXT.NE.  1)      WRITE     (18,350) 

I?    JIEXT.EQ.1)      WRITS     (18,340) 

WRITS     (13,240) 

BEITS     (18,250)     XGOM  (4)  ,  ICGON  (4)  ,ZGUM  (  4) 

C    EXTENDED    OUTPUT    OFTICK 

C 

WRITS     (18,33  0) 

IF     (IEXT.NE.  1)      WRITE     (13,350) 

IF    JI2XT-EQ.1)      «aiTE     (18,340) 

WRITE     (18,240) 

WRITS      (18,250)      XGCH  (5)  ,  YGUN  (5)  ,ZGUN  (5) 

WRITE     (18,230) 

WRITS     (18,370) 

C 

C    CARD    7     (VULNERABLE     J  E  E  A    TABLE    73     TYPE    3     WEAPONS) 

C 

WRITS     (18,300] 

WRITE     (13,410 

WRITE     (18,320)      (V.AT3  (I)  ,1  =  1,  20c) 

C    EXTENDED    OUTPUT    OPTION 

WRITE     (18,330) 

IF     (IEXT.NE.  1)      WRITS     (13,350) 

IF     {IEXT.EQ.1j      WHITE     (18,340) 

WRITS      (18,240 

WRITS     (18,250)     XGUN  (6)  ,  YGUN  (6)  ,ZGUH  (  6) 

WRITS     (18,230) 

WRITS     (18,380) 

C 

C    EXTENDED    OUTPUT    OPTION 

C 

WHITS     (18,330) 

IF     (IEXT.NE. 1)      WRITS     (18,350) 

IF    (IEXT.EQ.  1)     WRITE     (18,340) 

WHITS     (18,240) 

WRITE     (18,250)     X  GUN  (7)  ,  I  G  UN  (  7)  ,ZGUH  (  7) 

WRITE     (18,230) 

WRITS     (18,390) 

C 

C    CARD    7     (VULNERABLE    AREA    TABLE    V3    TYPE    5     WEAPON) 
c 

WHITS     (18,300) 

WRITS     (18,420) 

WRITE     (18,320)      ( V  AT5  (I)   ,  1  =  1  ,  20  6) 

C 

C    EXTENDED    OUTPUT    OFTICN 

C 

WRITE     (18,330) 

IF     (ISXI.NS.1)     WRITS     (18,350) 

IF     (IEXT.EQ.1j     WRITE     (18,340) 

WRITS     (18,400) 

IF     (IPNCH    -  2Q.     1)      RETURN 

C 

C    FCottAT    STATSSENTS 

C 
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CONTIN  UE 


40 

C 

C    COMMENCE    PUNCHED    GU1FCT    Cr    THE    MICi-II    CARD 


C    CHECK    FOB    VALID    MISSIIc     CESIGNATICN    NUM3E?    FOR    MICE    i: 
C 

If     (ISAH.XE.  7.  AHD.ISAH.GE.1)     GC    TO    5  0 

RETURN 


C    THE 

C 

50 


JCL    CARDS 

WRITS     ( 
IF     (IDE 


WRITS     (17,4  3  0).    I  3  A.  12  M)  ,  I  NAM2  (2)  .  I'J  N  S,  I  A  SB  ,  IN  A  32  (  1 )  , INAW2  (2)  ,  IUNR 
EST.  EQ.  2)     J  BIT:!     (17,440)     IUNR 


C 

C    THE 
C 


WRITE  (17,4b0) 

WRITE  (17,460 

WSITE  (17,^70 

WRIT'S  (17,480) 


OUTPUT    TITLE    CAECS 


WRITS 
WHITE 


C 

C    THE 
C    TC    I 
C  — 


'1  7,490] 

:i7;soo! 


EHC3LSM     HON    INE'JT    CAUDS,     CHECKING    FOR    TYPE    OF    MISSILE 
NPUT    TO    MICE    II 


WRITE     (17,510 

IF     (IS  AM.rO.  1 

IF 

IF 

IF 

IF 

IF 

IF 


(isaa.EQ.2 

(ISAM.HQ.  3 

(ISAM. Eg. 4 
(IS  AM. Eg.  5 
(IS  AM.  EQ.  o 
(I3AM.SQ.7 j 


WRITE  (17, 

(i  KITE  (17, 

S8IT2  (17, 

'k  r  1 1  i  (17, 

WRITE  (17, 

WRITE  (17, 

SEIT2  (17, 


660) 
59  0) 
700) 
710) 
72  0) 
730) 

74^,1 


C    THE    PSSK    CALCULATION    CARES 
C- 


3RITE 
WRITE 


C 

C    THE 
C 


17,5201 
17,530) 


BACA3    CRCSS    SECTION    TA3L: 


WHITE 
WRITS 
W  HIT  S 
WRITS 
WHITS 


C 

C    THE 
C 


(17,540 

(17,550 

( 1  7,560 

1  7,570 

17,560 


(3C3TAB(  I)   ,1=  1  ,  133) 
SIMULATION    TIME    PARAMETERS 


C 

C    THE 
C 


WHITE     (17,5901 
WRITE     (17,o00| 


MIS5LS    LAUNCHER    LOCATION 


C 

C    THE 
C 


WRITS     (17.610) 

XFS  AM=  XSAM*AMTF 

YFSAM=  YSAM*AMTF 

ZFSAM=ZS  AM*AMTE 

WRITS     (17,620)     XFSA8,X?SAH,ZFSArl 


TAHGET    THAJECTCRY 


8HITE     (17,630) 
WRITE     (17,o40)     ICT 


C    THE    MILESTONE    CARDS 
C — 


60 


DO    60    I=1,ICT 

WX  (I)  =  WX  (I)  *  AMTF 

WY  (I)  a aY  (I)  *\MTF 

WZ  (I)=WZ  (I)  *AMTF 

VEL(I)  =VEL(I)  *AMTF 

WHITE     (17,o50)      T  (I)  ,  WX(I)  ,WY  (I)  ,WZ(I  )  ,  VEJ 

CONTINUE 


(I)  ,WP(I)  ,WR(I)  ,SH(I) 
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c 

C    END    OF    PONCHEE    CASES 

C 

WRITE     (17,660) 
WRITE     (17,670) 
C 

SET3RN 

C 

C    /////*****     FCEHAT    STATEttEiiTS     ****  V///V 

c 

70         format    (2a//,2Au,oH  job    (,I4,  ih,  ,ia  ,  2H)  , ,  ih' ,2A4  ,  m    ,I4,2hp») 

90  FORMAT  (  1  9H//*  £  AI  N    C  RG=  N  PGV  M 1  .  ,14  ,  1  H  =) 

90  FCHMAT  (16H/V     ZXiC    °GM=?1AD) 

100  FORMAT  (42H//STEPLIB    DO     D  ISP=  SHE  ,  DSN  =MSS.  F0559.  PIPS  AV) 

110  FORMAT  (47H//GCF'IC7?001     JD    rJ  :.  LZ  =  S  Y  S  Z  A,  S  ?  AC  2=  (  CY  L  ,  I  1  ,  1  , )  )   ,  ) 

120  FCBMAT  (41H//     £CE=  (E  ECF.H*  VBS  ,  ia£CL=4  04,  3LKSIZ2=3236)  ) 

130  FORMAT  (22B//GG. F109F00 1     3D    DC?.MY) 

140  FORMAT  (  25H//GC  .  FT  Cb  F00  1     DD    5YSO'JT  =  A) 

150  FORMAT  ( 18H//GC- F1C5F00 1    DD    *} 

160  FORMAT  (  1  1H 1  , 1  ,0  ,  0 , 0  ,  J) 

170  FORMAT  (2H01) 

180  FORMAT       2H02) 

190  FORMAT  (2K05) 

200  FORMAT  (42H  AIRCRAFT    CCM3AT    SURVIVABILITY    SCENARIO) 

210  FORMAT  (7H0,  12,0,  ,F7.2,  9H,100uC0.  ,,F7.4,1H/) 

220  FORMAT        10  (?7.  1,  U)  ) 

230  FORMAT  (2304) 

24  0  FORMAT  (2h03) 

250  FORMAT  (  3  j  1  X  ,  F7  .  0  )  ,  1  GH    0-0,360.0) 

260  FORMAT  ( 19H0  ,  1 ,  1 ,  1  ,  1  ,  1 ,  0.  C,  50.) 

270  FORMAT  (7H1  ,  1  ,  1.  J) 

280  FORMAT  (2!iJo) 

290  FORMAT  { 3 n 1  ,  )  ,  9  (  1  X , F7. 3)  ) 

3o0  FORMAT  (2U07) 

310  FORMAT  (49H  VULNERABLE    AREA    TA5LE     VS    TYPE     1     AND    2     WEAPONS) 

320  FORMAT  (SF8.3) 

330  FORMAT  (2H12) 

34  0  FORMAT  (  1  3:!  1  ,  1  ,  1  ,  1  ,  1  , 1  ,  1) 

350  FORMAT  ( 13H0,  0  , 0  ,  C  ,  1  ,  1,  1) 

360  FORMAT  (  2  CH0  ,  2  ,  i  ,  1  , 1  ,  I  ,  0 .  0 ,  5  0  .  0) 

370  FORMAT  (  20ri0  ,  3  ,  4  ,  4  ,  1  ,  1 ,  0  .  0,  50  .  C) 

380  FORMAT  (  2  OH  J  ,  3  ,3  ,4  ,  1  , 1  ,  0  .  0,  50  .  0) 

390  FCRMAI  (20HJ  ,  5,3,  2,  1  ,  1,0.  0,  50  .0) 

400  FORMAT  (2M/*) 

410  FORMAT  (43H  VULNERABLE    AREA    TA3LZ    VS    TYPE    3    WEAPONS) 

420  FORMAT  (42H  VHINEEA3LS    AREA    TA3LE    VS    TYPE    5     *EA?UN) 

430  FORMAT  (  2!I// ,  2  A4  ,  6H     J03     j  ,1  4     1  H  .  ,  14     2H)  ,  ,  1  U  '  ,  2  A4  ,  1  H     ,I4,2HP') 

440  FORMAT  (19rf//*KAIN    05G=K  PGVH  \  .  ,14,  1  HF) 

450  FORMAT  (23H//     EXEC    PGM= MICE , R EGIO N= 1 30K ) 

460  FORMAT       44 d//ST ZPLIE    DD     DSN=M SS. ? 055 9. MICE SA V , 01 5?=SH2    ) 

470  FORMAT  (  23H//  F  T  C  b  FO  0  1       DD    3YSCUT  =  A) 

430  FORMAT  (  1  5  H//  FT  C5  F00  1    DD     *) 

490  FORMAT        2H01) 

500  FORMAT       53HAE     3251       ****S QBVI VABILIT  Y    SCENARIO****    SAM    ENCOUNTER) 

510  FORMAT  (2H02) 

520  FORMAT  (2H06) 

530  FORMAT       9X.1H0,8X,2H0.,9X,1H0,4X,1H0,4X,1H0,3X,2H0.  ,8X,2H0.) 

540  FORMAT  (2U08) 

550  FCHMAT  (7X,3d23.  , 3X,  2H19, 4X,  1H7,4X,1 H1) 

56  0  FORMAT  (8X ,2H0 . .7X.3H10 . ,7X . 3H20. ,7X ,3H30 . ,7X, 3H40.  ,7X  ,3H50. ,  7X,  3fl 

160.,/,7X,3H70.,7X,JHeO. ,7X,3H9C..oX.4H100. ,oX.4H110.,oX.4H120.,oX, 

24H130-,/,6X,4Hl40.,6K,4H150.,oX,3H16  0,bX,4d170.roX,4Hia0.) 

570  FORMAT  ( bX , 4  a- 90 . , o X , 4d- 60. , 6 X , 4H-3 0  - , S X , 2 HO . , 7 X , 3d  30.  ,7X ,3HoO.  , 7X 

1.3H90.) 

580  FORMAT  ( 7F  1  0  .  2  ,/ ,  7F 1  0.2  ,  /  ,5  F  1  0.2) 

590  FORMAT        2H09) 

600  FORMAT  (7X,3H0.5,7X,3H0.1,7X,3H8.0,7X,3aO.O,ax,2HO. ,7X,3H30.,8X,2H 

10.) 

610  FORMAT  (2H11) 

620  FCBMAT  {  2X  ,  P8  .  2,  2r  10  .  2) 

630  FORMAT  (2H12) 

640  FORMAT  (9X,  1H1, 2 X, 13, 4X,1H1,4X,1HQ, 3 X,2h0.,3X,2h0.,3X,2H0.) 

550  FORMAT  ( F7. 1 , 4 F1 0 . 1 , jF6 .  1  ,4 X , 2H0 .  , 4X  ,  2H0. ) 

660  FORMAT       2H20) 

670  FORMAT  (2H/*) 

660  FORMAT  (  9  X ,  1  H  1  ,4  X  ,  1  H  1  ,4  X  ,  1H4  ,  4  X  ,  1  !11  ,  3X  ,  2H  1  0 ,  4X  ,  1  H  1  ,  4X  ,  1H0) 
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690 
700 
710 
720 
730 
710 
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C    3  LOCK    DATA 

3L0CX    DATA 

COKSQH    /ICC/    X1,Y1,Z  1,V  1  ,  ITR,  LTF.2 

COMMON'    /MN1/    MI^X  ,MA  J(X,  M  NY  ,  HAXY,  aiNX1,  SAXX1  ,  -ll'IX  2  ,  ft  AX  X2 

COMMON    /(IN/    IEAOD 

CC-aUON    /PAR2/     XGUN(7),YGUN(7)  ,2GUN<7  )  ,XSAM, YSAM,  ZSAM,GR  (7) 

CCMMOS    /r  Alia/     &PE  MAX, HTM  III,  HT&AX,  PGPMIN  ,  DA  ALT,  Ma  IN  ,3R«AX,  3SKMIH,i3 

1  DDMS  V        D»r  r       SMTP 

COMMON  /AECV*  «X  (10  0  0)  ,  «Y  (10  0  0)  ,  WZ  (1  COO)  ,WU{  10  00)  ,  SV  (1000)  ,WW  (1000 
1)  £«"H  (1  00  C)  ,  HP  (1C00)  ,  «R(  10  JO)   , -G(  1  0o0)  ,  T  ( 1  000)  .  ICT 

COKMOM  /AEC2/  XNES  ,DEIX,  XTEa?  ,XOID,  Y  sEif  ,DEIY  ,  YTEaP,  Y OLD, Z NEW,  D2LZ, 
1ZTEHP, ZOLC 

COMMON  /A2C3/  VELCN  ,VEIOT  ,7ELCC,  N,UNES,  JT  EM?  ,  'J  OL  D  ,  7  N  E* J,  VT  EM  P,  VOLE, 
1WNZW,  WXE«E,vJOLI 

COMMON    /A  £01/    A  A  1,  A  3  1,  AC  1 

COMMON    /AED2/     VST  ALL  ,  VM  A  X  ,  V  M  A  X  1 ,  VMAX  2 ,DELI£E, DELI V, D3LTAZ 

COMMON    /AB03/     E EI  OCT  ,TH E DCT , PblDOT 

CCaaON    /AED4/    ESINEW  , THEN  Ew,P  HIM  EW,  ? STO LD , TH20LD , ?H IOLD 

COaaON     /A ESI*/     lHaaX,AHaAXfCLfiflX,G2Ii,TQ,  SHCS5L,  WI,CDO,CDK,  AREA,DTCH 

coaaoN  /TAa/   targx.targy 

C    FLASH    CRI7SR 

c 

kATA    IBAUE/1/ 
c 

C    a  At    r«IH  LOW    X    COORDINATES 

DATA    HINX/100/ 
DATA    HAXX/3700/ 

C    ALTIMETER     SINDGH     X    CQCSDISATSS 

C 

DATA    HIKX1/372S/ 

DATA    3AXX1/3925/ 
c . 

C    EBCHPTIHG    iilKEOa    X    C003EIUAIES 

DATA    i1INX2/3950/ 
DATA    SAXX2/40QC/ 
C 

c  common  x  coordinates   foe  the   three  bihdoss 

c 

DATA    aiNY/u00/ 

DATA    MAXY/2300/ 

C 

C    PREDETERMINED    WEAEC3     EMEIACEMENI    PARAMETERS 

c 

DATA    XG'JN/14800.  ,  1o2CC.  ,  1  36  00.,  1  3U00  .,  1  13  00.  .  15o  00.  ,12  300./ 

DATA    YGUN/90GQ.,32GO.,72  0C.  ,3000.  ,97  00.  ,10  90  0.,  7500./ 

DATA    ZGavaJ.,40.,20.,2J.,50.,9G.,20./ 

DATA    X3Aa/120CG./,f SAM/6000. /.ZJAM/S  0./ 

DATA    G a/  1000.  ,  10 CO.,  1UJ0.  ,iaiC.,2500.,2500.,2500./ 

c 

C    TASGET    COORDINATES 

C 

DATA    T ARGX/14  0CO./, IARG Y/722  0 ./ 

c 

C    CCNVEESION    FACTORS:    RADIANS     TO    DEGREES 

C  HETEBS      TC    FEET 

c 

DATA    RTD/57. 29573/ 
DATA    AaTF/3. 28C84/ 

C    GRAVITATIONAL    CONSTANT     (3/S2) 

C 

DATA    GEE/9.307/ 

C 

C    3IE0LATION     PARAaETE53 

C 

c 

C  CARDINAL  COaPASS  HEADINGS  (RADIANS) 

C 

DATA    AA1/1-57C79o/,A21/3.HU593/,AC1/U.712a/ 
C 
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C  MAXIMUM  THRUST  OF  TEE  AIRCRAFT  (DiaENSIO  BLESS) 

c 

DATA    THM AX/0. a  0/ 


C    MAXIMUM    AIRCRAFT    GE2-IOAEING      p  IS  E  NS  IOSL  ESS  ) 
c 

DATA    ANMAX/6./ 


C    8HOSSL    IS    IHE    DENSITY    AI    STANDARD    SEA-LEVEL    CONDITIONS.     II    ;iAS 
C    DIMENSIONS    Or     (N.S2/M4) 


DATA    BHOSSL/1. 225/ 

C    STANDARD    SEA-LEVEL    T  E  3  ?  5  B  AT  D  3  £     (DEGREES     X) 


DATA    TO/238. 16/ 


C    TEHEEEATURE    LAPSE     SATE     ECS    THE    TRCE0SPH2HE     (D£G    K/M) 


DATA    DTDH/-o. 51-3/ 


C  MAXIMUM  HING  LOADING  (N/M2) 


DATA  ^L/4783./ 


C    SEEED     ERAKE    AEEA:     DEFINED    \S     A    P52CENTAG 


TOTAL    MING    are; 


DATA    AREA/. 35/ 
C    MAXIMUM    COEFFICIENT    Of    LIFT 


DATA    CLMAX/1./ 


C    COEFFICIENT    CF    Dei  AG    AT    ZERO     ANGLE    CF    HIT  ACK 


DATA    CDC/ .0 1 5/ 


C    PSCFILE    DRAG    COEFFICIENT 


DATA    CDK/0. 1/ 


(M) 


c  aisiana  altitude  ecs  tfe  game  (m> 

c 

DATA    HTM  IN/6  D./ 
c 

C    MAXIMUM    ALTITUDE     4EESCACEING     IHE    TARGET 
c 

DATA    APPMAX/457./ 

Q 

C    MAXIMUM    ALTITUDE    AfTER    ENTERING    PCE-UP    RANGE    OF    6    KM.   (M) 

C 

DATA    HT3AX/2050./ 

C 

C    MAXIMUM    RANGE     (METERS)      A    POP-UP     MAY    3E    COMMENCED 

c 

DATA    PCPMIN/bOOO./ 
c 

C    MlhlMUM    ALLOWABLE     ECP-UP    ALTITUDE     (K) 

C 

DATA    BAALT/1000-/ 
c 

C    3CME    RELEASE    MAXIMUM    ALTITUOE     (M) 

C 

DATA    3RMAX/20GC./ 
C 

C    BCME    RELEASE    MINIMUM    ALTITUDE     (M) 

DATA    3RMIN/100./ 

C    MAXIMUd    BOMB    RELEASE    EANGE     (M) 

C 

DATA    3RRMAX/1 000-/ 

C    MINIMUM    30MB    RELEASE    EANGE     (M) 

C 

DATA    3RRMIN/1 OC./ 
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c  HAxiaoa  fELOcmzs   eefoke  and  atteb  aoas   selzase  (a/si 

c 

DATA    VSAX1/2  6  0./, VMAX2/3  10./ 
c 

C    STALL    VELOCITY     (a/S) 

c 

DATA    7STALL/90./ 

C    IMCEEMEMT    OF    VELOCITY    CE6NG2     (5    KNCI    INC    CONVERTED    TO    U/S) 

c 

DATA    DELTV/3./ 
c 

C    THE    FOLLOWING    AR£    TEMfOHAFY    PARAMETERS    FOR    THE    INITIAL    CONDITIONS    CI 

C    THE    AIRCRAFT.    LATHS    IKIS    WILL    5E    ENTERED     INTERACTIVELY. 

C 

DAIA    JX/C./.^I/oCCO./^'Z/ZOO.  /.WO/20  3.  /  ,  >J  V/J./,  A  A/0  .  / 

DATA    W H/1.570d/,*t/0./,  WR/0  .  /  ,  *G/  J.  /  ,  I/O.  / 
c 

C    INCREMENT    OF    TIHE    Cb  A  :.'G  E  (SECO  NDS  ) 

c 

DATA    DELIEE/1 . 00/ 
C 

C    INCREMENT    OF    ALTITUDE    CHANGE (50     FT    INC    CONVERTED    TO    HETERS) 

c 

DATA    DELTAZ/15.24/ 

C 

C    TEaEOHAHY     ERCGRAa     INITIALIZATION 

c 

DATA  XOLC/0. /,YCLE/6 000. /,ZGLD/200./ 

DAIA  0 OLD/2  0  J./  ,  V'CLD/0.  /,  .«OLD/0.  / 

DATA  PSICLD/0./, IFEOLD/O . /, ?H IGL J/0.  / 

DATA  VELCC/200./ 
END 
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APPENDIX  H 
FLIGHTPATH  GENERATOR  WITHOUT  THE  GRAPHICS 

C  SUBROUTINE    3IGCAL     1bMAR84 

C  T11     IS    SET     U?    AS    A    TROO 3LS-3HOOTI KG    CONVENIENCE. 

C  IT    IS    TEE    FLIGHTIATH    GENESATCR    POLLED    FROM    I3MPIP2. 

C  SEES    IS    USE,     EACH    SUBROUTINE    HAD    A    MRITE- TO-FIIE 

C  STATEflENT    IN    IT    rC2    OBSERVATION    PURPOSES. 

C  CHANGES    AND    COHMEiiTS    A3  E    CURRENT    THROUGH     16MAR8U. 

C  ~  —     D     A     **       *■  — 

C  THIs'sUEPOUTIHE    OPERATES    AT    A    LEVEL    3ELOW    MAIN 

C  PEOGHAB    AND     ACTS     43    A    DRIVER    FOR    THE    SUBROUTINES 

C  LISTED    WITHIN. 

C»*4<****»«******»**»»»**** ***************  ****»*»***>*»*****»************ 

C      SUEBOUTINE  BIGCAL 

COMMON  /AEC1/  «X  (100G)  ,  WY  (1030)  ,'«'ZI1  00  0)  ,  W'Jf  1000)  ,SV  (1  000)  ,  WW  (TOGO 
1)  ,  WH(1G00)  ,  W?  (  1C00)  ,  S3  (  1000)  ,  WG ( 1 300  )  ,  I  ( 1 0  GO )  ,  ICT 
COaHON  /ABC  2/  XKE«,DELZ  ,  X  TZ  MP  ,  XGLD,  Y  NEW  ,  DEL  Y  ,  YTZMP  ,  YOLD  ,  Z  N  S  W  ,  DZLZ, 

IZIE*^^      Z  c T  n 

COMMON "/ A ECJ/     VELCN, 7EL JT ,7 SLCC, N , UN  EW, UTEMP , 00 LD , V  NEW ,VTZ M P  ,  VOLE, 
1 WNEW, 4TEEP,'rfOLE 

COMMON    /AEC4/     AG  1  ,AH  1,AI1  ,AJ  1  ,AJ2 

COMMON    /AED2/     \SIALL  ,7M  A  X  -  V  M  A  X  1 ,  '/MAX  2  ,  DELTEE,  DELTY,  DELTZ 

COMMON    /AEE5/     E W £ ACC , AN , M CO  NT 

N  =  G 

ICT=2 
10  MCONT=0 

CALL    T  SNFEM 

CALL    N  E  5»  C  LD 

CAL-    MVELCS 

CALL    MVDCTS 

CALL    DELVEC 

CALL    TMPFNT 

CALL    T MP  V  EL 

CALL    INBTBH 

CALL    ANGLES 

CALL    ROT  "AT 

CALL    ACTFM1 

CALL    ACTEB2 

CALL    ACTEK3 

CALL    ACRVEL 

CALL    ACACC 

CALL    ACLMTS 

CALi.    XCHNGE 

CALL    WAYFNT 

CALL    PILE 

ICT=ICT*  1 

If     (ABS  (UTEMP)  .GT.AES  (VTZMP)   .  AND,  DELX.E0.AG1)     GO    TO    20 

IF     (A3S  (VTZMP)  .GT.ABSfJTZM?)  .  AND.  DELY.  EC..  Aa1)     GO    TO    20 

GO    TO     10 
20  CONTINUE 

C  BETURN 

STOP 

END 
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:******♦»**<>**   **#«:*****#**#** 


C *************** ************* 

C    SUBHCUTINE  THNFRS 

C  T 

C  E 

C  V 

C  GEN  ERA^ING^P  ACKAGE. 

C»*4*********a^*****3*444:>4*  «*«***:*******«   ********«***«*« 

r-Tir-r,,-.trmTU-       ^JJJJfJM 

,    IT  H  ,    I'm.  (I 

XTEMP,XCLD,IN£H,DELY,XT2MP, 


*************** 


XEANSPCRM    TAriES    TEE    32AL    7AL0E    VARIABLES 
EY    TEE    GRAPHICS     SUBROUTINES    AND    LOADS    THE 
VARI&3LSS    SPECIFIC    TO    THIS     AISC2AZT    TSAJ£ 
GENERATING     PACKIGF- 

SOESOUTINE   TRNF31 

COSMOS    / LCC/     11  .  11 , 2 1 ,71  , IT 

COMMON    /AEC2/    XN EH,  DELI  ,  £TE._. 
12TE"?    SOLD 

COMMON    /AECJ/    7£LCN,7EL0T,7ELGC,N,UNErf,UT5MP,U0LD,7NEi 
1 WNEW, «T2MP,WCLD 


ES  SUP? 
THE;1  IN 
AJ£CTO;< 


LIED 

TO 

'I 


3*a***e***»**** 


1  wnew,  3temp.wclc 
common  /aez5/   ewcacc,an,mcont 

XNZW=X1 
Y  NEW-Y  1 
ZNEW=Z1 

VELON=V1 

RET02N 

END 


fOLD,2N 
NEW ,VTE 


EW , DELZ, 

MP,VOLD, 


£**  »  **  *  *»  c  *  =i 

C  SUEfiOUTINE 

C 

C 

c 

c** ********* 
SUBHCJ 
CCaMON 
121EMP, 
COMMON 
COMMON 
AG1=XN 

ahi  =  k:i 

AI1=ZN 
AJ1=SQ 
AJ2=SQ 
RETURN 
END 


*aa«eo»S*39* 

E'n'CLD 

NE'wCID 
TEE  C'JS 
OSES  HA 

***t:i«**»*v* 

NE    SSWC1.D 

AEC2/    XNE 


a***************   4*******»******i»***<t*******-«** 


GEN 

a£s 

s  J 


IE  AT 
I  «A 
USI 


2S 
Y?C 

INT 
*  *  a 


AG  1  ,AH 
FWEiCC 


LD 

AECU/ 

AEE5/ 

-XOLD 

-YOLO 

-ZOLu 

(AG1  **2+AH1 * 
(AG1**2+AE1* 


,  DELa  ,  X  TZ  *  ? 


1,A 
,AN 


11  ,  A  ■ 

,  3C0 


3  1  , 


IENGT 
1ST     ( 

XCLD, 
AJ2 


H  7 
OLD 
(MS 


ZCTOR 
)  kllQ 
«)  • 


:o;j. 
:uz 


!  *  ,  D  Z  L I ,  Y 


P  0  H  E  N  T  S 

J2SIP.Z 

:emp,yol; 


D    «"A 


WEEN 
rPOIKT 

!  EH , DELS, 


*2  +  AI  1**2) 
*2) 
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c**  **  +  *»*  *** 
C  SUE-SCOTINE 

c 
c 

c 
c 
c 
c 

c 
c 

£**  ********* 

subeou 
common 
common 

13  NEW, J 

COMMON 
H=N 
IF     (N. 

UNEW=7 
VNE»=V 
WNEW=V 

contin 

N=1 

RETURN 
END 


10 


»*#*****»*»»»*<l  ********»»***»*   ***«3«*****#****** 

MVELOS 

MVELCS  (MA?  VELOCITY  COMPONENTS)  DETERMINE 
VELOCITY  COHEONEN1S  BETWEEN  CURRENT  WAYPOI 
AND    THE    JUST    2NTE6ED    n'AXPQINT     (NEW)  .     THE 

CCMAIN3  A  FLAG  (N)  TO  AVOID  RESETTING  TH 
COMPONENTS  UNTIL  EITHER  A  NEW  WAYPOINT  LS 
C5    AN    AI3C3AFT     LIMITATION     WHICH    IS     FATAL 

in  :fe  saBSSQUESi  intsrativz  subroutines. 

COORDINATE     SYSTEM    IS    TERMED    %P,     I.Z.,     Y 

*******  *  *  »  4  ***  ****************  ***********  x  a  *  »  *  »* 

TINE    MVELOS 

/A£C4/     AG  1,AH  1,AI  1  ,AJ1  ,AJ2 

/AEC3/     VELCN,  VELGT,VELCC,  II  ,0  N  ES  ,  JT  EM?  ,  UOLD  ,  7  N  E3 
T  E  fi  P    WOLD 
"/AEE5/     FWDACC,AN, MCONT 

GT-0)     GO    TO    10 
ELON*  (  AG  1/AJ1) 


ftfV  *»*«*»»  «* 


ES 

THE 

INT 

(OLD) 

SLio 

ROUTINE 

Z    7 

S  L G C IT  Y 

aE 

C  E I V  E  0 

TS 

REACHED 

THE 

?OI 

NTS     NORTH 

s  *  «   ai»*«»««* 

,7TZM?,70LD, 


ELON* (AH1/AJ1) 
ELON* (AI1/AJ1 


C    SCBHOU1I3E 

C 

c 
c 

SDEROUT 
COMMON 

1ZTEMP, Z 
COMMON 

1WNEW, WT 
COMMON 
COMMON 
COMMON 
ACC=  (VE 
UDOT=AC 
VCCT=AC 
WDOT=AC 
RETURN 
END 


M  VDOTS 

MVDGTS  (MA?     VELOCITY    DO 

LINEAR  6CCELEHATICN    COM 

IN    MAE  COORDINATES,      (Y 

INE    MVECTS 

/ABC2/     XNZW,DZLa,  XTZMP  ,:<CLD,Y 

OLD 

/ABJ3/     VELCN , 7SL07  ,7 ELCC, N , J N 

EMP,WOIE 

/AEC^/     AG1  ,AH1  .AI1 ,AJ 1 ,AJ2 

/AEE1/     UDOT, 7  DOT , W  DO  T 

/AEE5/    FiDAOC  ,AN, MCONT 

LON**2-VELCO**2)  /  (  2*  A  J  1) 

C*  (AG  1/AJ1  ) 

C*  (AH1/AJ1) 

C*  (AI  1/AJ  1) 


a«=ai*--i»a»*-!i**aat;    utt*VS    »   o  »   »  *    *  W 


I    COMPONENTS) 
PGNENTS 
POINTS     .."  0^  Li) 

COM? 
*  *  ** 

UTZ 

S     THE 

******* 

■*■# 

NEW, J  ELY 

, YT5M? 

,  YOL 

D ,  Z 

NEW,  DEL 

**  t 

Erf, UTEMP 

,UOLD, 

/NEW 

,VT 

EMP,  VOL 

- , 
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c** 

c  s 

c 

c 

c 

c 

c** 


**************** 
G8B0UTINE     DE17SC 


♦  ***»ii»4*^***ai**»B*jifx»***jiift***«*****a#«#«™**-*ait»«ft»«* 


*  a*  *-t  *  «*«  a  «  * 


S  UiH>j 

coaao 

1ZIESP 

C  C.I  HO 

coaMu 

CO  (WO 

ccaao 

COM  HO 
D£IX= 

DELY= 

DEIZ= 

I?     (A 

If 

IF 

BET 

END 


UTia 

M    /A 

,  ZCL 
:i  /A 
WTEa 
N  /A 
S  /A 
Si  /A 
S    /A 

aoLc 

7  0LD 
WCLC 

as  (D 
as  (d 

iiS  (£ 


«*  ** 
r  37 
EC2/ 

EC3/ 

P,  WC 

EC4/ 

302/ 

EEV 

ES5/ 

*DEL 

*DE 

*DEL 

ELX 

ELY 

ELZ 


EELVEC     (DELTA    VECTORS)      UTILIZES    STANDARD    DYN 
ECUATICKS    TO   GENEFATE    LIKEAc!    rSASSLATIOy    INC 

IT    FUSTbER    LOOKS    TO    SEE    WHETHER    THESE    INC52M 
EXCEED    THE    DISTANCE    LEET    TC    GO    TO    THE    NEW     WA 


AHIC 

3EM ESTS . 

ENTS 

YP0IKT 


XN  £.W,DELX,XTZa?,XCLD,Y  NEW  ,  DELI ,  YTEM  P  ,  YOLD  ,  Z  SEW  ,  ZELZ, 

7ZLCN,7ZLOT,7ELCC,N,UN£W,aTEap,UOLD,7NEW,7TSMr,7CLD, 
LE 

AG  1  ,AH  1,  AI  1  rAJ  1  ,AJ2 

VSTALL  ,7'Ak X  ,V  8A XI ,  7 MAI  2,  D ELTEE,  DEL i'  V ,  DEL I AZ 

UECT,  7  LOT  ,  WDOT 

FWCACC.AN.HCOST 
T£E+.5*0DOT*DELTEE**2 
TEE*.5*VDOT*CELTEE**2 
TIE  +  .5*WDOT*BELTEE**2 

GT.  AdS  (AG  1)  )     D2LX=AG1 

GT.  A3S    AH  11  )     DZLY=AH1 

GT.  ABS  (All)  )     DELZ  =  AI1 


2** ****  «**«■* 
C  SUEHOUTINE 
C 
C 

c **  *  *  * ****** 
SDEHOJ 

coaaoN 

1ZTEMP, 
CO a MOM 

1 WNEW, W 

coaaos 
common 
common 

XTEMP= 

Yizap= 
ztem?= 

IF  fD2 
IF  (US 

IF  (DE 
BETURN 
END 


imeekt    (temporary   eoint 
position  in    space  based 

TINE    TSPrNT 
/A5C2/     XNES,DELX ,XTIM?  ,XCLD, Y 

ZOLE 
/ABC  3/     7FLCN,  7EL0T  ,7E  LCC  ,  N  ,  J  'I 

T  S  a  E  ,  W  C  L  L 
/AECV     AG1  ,AH1  ,AI1  ,AJ1  ,  AJ2 
/AED2/    VSTiLL,VWAX,7HAXl,  IMAX 
/AEE5/     FViEACC  ,AN,  /.COST 

XOLE+DELX 

YOID*D£LY 

ZOLE+DELZ 

LX.EQ.AG1)      ?TE.wP=XtJEW 

LY.  IQ.  Ah  1)     YTEMP=Y'IEW 

L2.EQ.AI1)      ZIZKP=ZNEW 


**a**#****^a««#»****?:*****2<*** 


*  *  4  * 

N  EW  , 
EW,U 


j:3» 
N  IH 
»  *  ** 

DELY 


TLS     AT 
E    DELTA 

,  yte:ip, 

,  JOLO, V 


EMPOaAi 

VECTO. 

*  »  «  =  *  *   I 

yclz,z; 

new,7t; 


Ea'.CELZ, 
KP,V0LC, 


2,DELTEE,DSLT7>DELrZ 
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C  SUEBOOTINE 
C 

C 

c 

c **  * ******** 
SOEBOU 

ccaaoa 

1ZTEMP, 

co a son 

13  NEW, 3 
COMMON 
C0M3ON 

common 
common 

UTEMP= 
7TEM°= 
iTEflP= 
IF  (AB 


tmpve 


10 

20 


30 

40 


50 

60 


IF 
IF 
IF 
IF 
li 
IF 


{A3 

(A3 

(DE 

DE 

DE 

DE 


UEOT=0 
GO  TO 
COST IN 
IF  (UT 
CO ST IS 
IF  (DE 
7C0T=0 
GO  TO 
CCHTIH 
IF  (VT 
CCNTIN 
IF  (DE 
»COT=0 
GO  TO 
COMTIN 
IF  (WT 
CCNTIN 
7ELOT= 
3ETURN 
END 


*  **  t  •»  n 
TINE    T 

/AEC2 

ZOLC 
/ABC3 

TEKE,'3 
/AEC4 
/AED2 
/AEE1 

/a;e5 
uold*u 

VOLE+V 

•  OLE* '3 
S (OTEH 
S ( VTEii 
S (HTEH 

LX.Eg. 
LX„EQ. 

LZ . EO. 
LX.NE. 


*  a  *  * 
L 

IMF 
Tfcf 
PCI 

*  *  *  * 

HEVE 

/    i  N 

/  VE 
OLE 
/  AG 
/  7S 
/  UD 
/  FW 
DOT* 
COT* 
DOT* 
?)  .G 
S)  -G 


»t*«»«*«***4**4«**>it  **«««««1****«** 


VEL     ITE 

VEICCI 

NT    IN    3 

*»»* *** 

L 

E5i , D ELI 


mpcrary  7el0c 
:y  components 

PACE     (MAP    000 


,XTEMF,XCLD, Y 
LCN, 7ELOT,7ELCC,N,UN 


ITY    COMPONENTS) 
ASSOCIATED    WIT 
a CI  NATES)  - 

new, deli , ytemp, 
em,  utemp,  uold,v 


GEV,EP. 
H    i'HE 

NEW ,77 


*  *  *  *  #**  a* 

ATES 
TEMPC2AE1C 

******* ** 
NEW,  DELE, 
2HP, 70LE, 


,AH1,A 


AG  1 
AH  1 
A  I  1 
0.) 


L  A  C  C  ,  A '.  i 
DELTEE 
DELTEE 
DELTES 
T.A3S(U 
T  .A3S  iy 
T  •  A  E  S  ( W 
UT17  KP= 
VIEEP= 
WTEMP= 
GC    TC    1 


11  ,AJ1  ,AJ2 

AX  ,VMAX  1,VMAX 2, DELTEE, DELTV, DELTAZ 

,  .,■  DOT 
, SCO  NT 


NEW)  .  AtiD.MCON 

NEW)  .AND-  SCON 

NEW)  .AND- SCON 

a  N  EN 

7  NEW 

WN  ZW 

0 


T.SQ.  1)  UTEMP=0N2W 
T.EC.  1)  VTE:i?=7NEW 
I.Z£.  1)     »TEafi  =  WSSM 


20 

US 

EMP.EQ.  Q NEW)     i)COT=  (UT2ME**2-UOLD**2)/(2*DZLX) 

LX.NE-0  .  )     GC    TC    3  0 


40 
UE 
"MI 

UE 


7  NEW) 


:OT=  (VTEHE**2-'\rOLD**2)/(2*D2LY) 


LZ.NE.O. )     GC    TC   50 

60 

UE 

ZME.EQ. WNEW)     SCOT' ( 3TSM£**2-30 

U  E 

S'D.RT(GTEMP**2*  7TESP**2*  KTEilP** 


LD**2)  /(2*DELZ) 
2) 


C    SC3BOUTINE  INRT3M 

C  INRTSM     (INITIAL    5CTAIIONAL    T3  AN  SF02M  AT  ION)     TRANSFORMS 

C  MAP    COORDINATE    CCMPCNENTS    TO    A    SYSTEM    USED    BY     FLIGHT 

C  CYNAMICISTS      (Y    POINTS    SOUTH    AND    Z    POINTS    DOWN) 

S0E3OUTINE    INRTRM 

COMMON    /A2C3/     BELCH, VELOT ,7ELCC,N,UNEW, U T EMP, UOLD , 7 N E3 , 7TEMP, 70LD, 
1HNEW,3TEMF,3  0LE 
COMMON     /A3E1/     CDOT  ,  7  COT  , 3  DOT 
COMMON    /AEE5/     c S C ACC  ,  AN, MCO NT 
COMMON    /ABF1/     0  1  -  7 1  .  31 , J  2  ,7 2 . 32 . U3, 7 3 , 3 3 
COMMON    /AEr'2/    U  C  1 ,  7  D  1 ,  A  D  1  ,  U  D  2  ,  7D2  ,  3  D  2  ,  UD3  ,  7D3  ,  WD  3 
U1=UTEMP 
71  =  -7TEMP 
S1=-STEMF 
UE1=0DOT 
VD1=-7DOT 
WC1=-3DOT 
BETURN 
ENE 
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c* *******  *** 
C  SUEROUTINE 
C 
C 

c 

c 
c 

c 

C** ********* 

S0B3QU 

common 

1ZTSMP, 
COMMON 

1  n  N  E  'n  .  m 

ccaaoN 
coaaoM 

COdMOS 
COMMOS 

ccaaoN 
coaaoN 

DS=SQR 
IF  (DE 
IP  (DE 
IF  (DE 
30  10 
C0NTIN 
PSINET 
IF  (DE 
IF  (DE 
IF  DE 
IF  DS 
CCNTIN 
THESE* 
TBNRAT 
IF  (?S 
Le 
IF 
RET 
EHC 


****<:***»*». ■»*»»***»*****»**«*»  »**»******■»#*»*»»»»■«*»*»**»**» 

A  NGLES 


J.  r  C        A       .-i  A  J.O  . 

*******  *  »  *  *  ******  *  *  **  **: 


10 


20 


************************************* 
TINE    ANGLES 

/AEC2/     XNEW,£ELX  , XTSM?  ,XCLD,Y  Ni 
ZOLC 

/AEC3/    VELCN ,  7EL0T  ,VELCC,  N  ,UM  EW  ,  OTEM?  ,  UOLD ,  VHi 
TEME.w'CLD 

/AEO*/     AG  1.AH  1,AI 1 ,AJ  1  ,AJ2 

iir.m     i        \  h   1         \   D1        W  1 


IE*,DELY,YTSaP,YCLD,ZNE5J,EELZ, 
!WfVTEMP,VOLD, 


/ate*/     AG  1  ,4«  T,  AX  1  ,AJ  1  ,  AJZ 

/AED1/    AA1.AB1.AC1 

/AED2/    VST  ALL,  va  AX  ,VaAX1,  VMAX  2,DELTE£,DELTV,  DELT' 

/ABDU/    PEINE* ,TH2 NEW , PfclNES,  PS ICLD,TH£OLD, PHIOLD 

/AEE5/    EWCACC,AN,MCONT 

/AEFU/    DS, DSP, DSP? 
T  (EELX**2+JiLY**2  +  DELZ**2) 
LX.NS.O.)     JC    TC    10 

IX  .  EQ.  3  .  .  A N  C .  D  ELY  .  L  T.  0  .  )    PSIUE  W=  A  A  1 
LX.EQ.  Q  .  .  ANE.  CELT.  GT.  0.  )     PSXIJE  W--AA1 

T  it 


=  -AlAtJ  (DEIY/DELX) 

LX.GT.G..ANE.  CELY.  SCO.  )  ?3I'.:EW  =  0. 

LX.LT-0.  .AND.  DELX.  LT.  0.  )  PS  III  £  Vs  AE1  +?S  13  Ei 

Li.  LI.  J.  .  ANC  C  ELY.  EC  0.  PSISE  W  =  A51 

LX.LI.O.  .AND.  DEL'/.  SI.  0.)  9SINE W=  E SINEW -AB1 

a  e 

=  A£IN fDEIZ/ES) 

=  (FSINEW-FSIOLE)/DELTSE 

INE5.GI.0.)     PHINE  «'-=ATAN  (AE3  (IR  NRAI*VEL  JT/9  .  7^58)  ) 

IliEK.LT.O.)     ?HIN£».=-ATAN  |A3i  (T HNaAT*  VELOl/9 .  7^33)  ) 

INE'ii.EQ.PSi.CLE)    PKI  NE3-EHIOLD 


J;*********************************************************************** 

C  SUBROUTINE  RCTRAT 

C  RCT3AT  (ROTATION*!  HATES)  COMPUTES  THE  ANGLE  DCT 

c  ccapcuEJiis    in  :hs  diertial  reference  sys.    (the  one 

C  KITH    Y    POINTING    SCUTH    AND    Z    Du«N). 

Q  **  *  •*  ******  ******************************  ****************************** 

SUBROUTINE    ROIHAT 

COMMON    /AEC2/     XN  EK,  DELX  ,  XIEM?  , XCLD, / NEW ,DELY ,  /TEMP,  TOLD,  ZNE5J  ,  EELZ, 
1ZTSMP, ZOLD 
COaaON    /AED2/    VST  ALL ,  7M  A  X ,'/ M  A  X  1 ,  VMAX  2  ,  DELT2S  ,  D  ELT  V  ,  DELTZ 
COMMON     /AED3/    FEICOT  ,THSDCT,  tHIDOT 

COMMON  /AEDU/  PS  IHEW  ,THEN  EW  ,  ?  HINEW,  ?  SIO  LD  ,  111  SOLD  ,  PH  IOLD 
COMMON  /AEE5/  FWC ACC, AN , MCO NT 
PSIDOT=  (PSINEW-~SIOLD)/DELT2S 
THEDOT=(THENE1i-THECLD)/DELTEE 
PHI  DOT  =  (PHIN  EW-PEJOLL)  /D  ELTS2 
RETURN 
END 
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c**  *  < ♦  * ***** 

C    SUBROUTINE 

C 

C 

C 

£**  **  **  ***.** 

SGBROU 
COMMON 
COMMON 
COMMON 
COMMON 
ANG=PS 
D2=COS 
72=-SI 
H  2  ■  S 1 

ac2=co 

7D2=-S 
WD2=WD 
BETURN 
HMD 


********************************* 

ACIEH1 

ACIRH1  (AIRCRAFT  TRANSFORM 
ROTATION  OF  AIRCRAFT  ABOUT 
ECiaiS    OWN    TO    ZAETH)  . 

♦A******************************* 

TINE    ACTRM1 

/AEDU/     ESI  NEW  ,  THE  NEW  ,  PHI  MEW,  PS  10 

/AEE5/     FWEACC.AN, NCONT 

/  A  E  F  1  /    U  1 ,  7  1  ,  .i  1 ,  J  2  ,  7  2  ,  W  2  ,  U  3 ,  7  3  ,  W 

/AHF2/     UC1  ,70  1  ,rf01  ,'J  D2  ,  V  £2  ,  W  3  2  ,  G 
INSW 

(AKG)  *U1  *SIJi  (AUG)  *V1 
N  (AUG)  *Z  1+CCS  (ANG)  4  iM 

S  (ANG)  *0D1+£IJ)  (ANG)  *7D1 
IN  (ANG)  *U  0  1+CCS  (ANG)  *7D  1 
1 


«)mi.»«.  j«5»»t  nt 


ATIO 
THE 


13, 
3 


N    MATH 
21     AX 

:****** 

:azoLD, 


IX     #1)     2 
IS      (PCS 

**  *  #  *  »** 

PHIOLD 


*  *  *  *  *  *  *  a  * 
r  FECIS 

*  I  j  »  k  4  «  aft 


3  ,  V  0  3  ,  W  3  3 


£**********,****************************************************»*»****** 

C    SUBROUTINE    ACT3S2 

C  ACTRK2    ROTATES    TEE    AI2C5AFT    AbOUT    THE    Y2     (RIGHT    WING) 

C  AXIS. 

SUBROUTINE    ACTRM2 

COMMON    /AE34/     PS  I  NEW , THEN  EH ,  P  EINEW,  PSIO  LD  ,Ti:EOLD  ,  ?H  IOLD 

COMMON    /AEE5/    F SO ACC  ,AN . SCO NT 

COMMON    /AEF1/     U  1 ,  7  1  ,  .,  1,  U  2  ,  V  2  ,  W  2  ,  U  3,  7  3  ,  W  3 

COMMON     /AUF2/    ED  1  ,  73  1  ,  WD  1  ,UD2  ,  VC2  ,SD  2  , 0  EJ,  VD3,  W03 

ANG=TK2:JES 

U3=C0S  (ANG)  *U2-5IN  (ANG)  *W2 

73=72 

53= SIN  (ANG)  *02+CCS  (AUG)  *W2 

0E3  =  COS  (ANG)  *UE2-Sli.  (ANG)  *WD2 

7D3=7D2 

WDJ=SIN  (ANG)  *UC2+C0S  (ANG)  *WD2 

RETURN 

END 


C******** **************************************************** *********** 

C    SUEBODTINE    ACTRM3 

C  RCTAIZS    AI3C3AFT    ABOUT    THE    X3     (NOSZ)      AXIS 

Z   *  *  *  »»»»**»*  «»».*««  *  *  *  44*****  *  ***  **  *******  ***************  *******  *»  ****** 

SUBROUTINE    ACTHM3 

COMMON     /AEDU/    ESIKEW  ,THE N EW , P HI  NEW , PSIO L3 , THEOLD,  PHIOLD 

COMMON    /AEE5/     I  W  [  ACC  ,  AN  ,  M  CO  NT 

COMMON    /AEF1/     U  1  .  V  1  ,  W  1 ,  J  2  ,7  2  .  W2  ,  U  3,  7  3  ,  3  3 

COMMON    /AEF2/     U  E  1  ,  7  E  1 ,  i  D  1  ,'J  D  2  ,  VD2  ,  W  D  2  ,  U  3  3  ,  733  ,  WD3 

COMMON     /A3F3/     C AC  ,  7 AC,W AC  ,U DOT AC , 7BC I AC , i COr AC , ?, Q, R 

ANG=PHINEW 

UAC=U3 

7AC=C0S  (ANG)  *73+5IN(ANG)  *W3 

HAC=-SIN  (ANG)  *73+CCS  (ANG)  *W  3 

UD0TAC=UE3 

7D0TAC=CCS  (ANG)  *7D3+SIN  (ANG)  *WE3 

ViD0TAC=-SIN  (ANG)  *VD3+C0o  (ANG)  *nDi 

BETUHN 

2ND 
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c ***************** 

c 

SOEBCUTINE    ACBVS 

c 

c 

c 

c 

c 

£***********   ****** 

SOEBOUTINE    A 

COMMON     /AED3 

common    /Ai:D<* 

COMMON    /AEE5 

COMMON    /AE?3 

AHG1=THE»EM 

ANG2=PHTNEW 

p  =  phidoi-si:j 

Q  =  COS (  ANG2) * 
B=-5IN  (ANG2) 

return 

ENC 

************************************* 

^ACRVEL  (AIRCRAFT  ROTATIONAL  7ELOCITI 
ROTATIONAL  VELOCITIES  IMPOSED  OH  THE 
AIRCRAFT,  111  THE  30TATIGNAI  03  AIRCR 
SYSTEM.  (X  ALONG  THE  HOSE,  Y  OUT  THE 
Z    C'uT    TEE.    30TT0M    CF    THE     AI3CRAFT.) 

************************************* 

CHVEL 

/  esiect.thzdct,  phidot 

/   ps  i:;ew  ,the:izw  ,  phinek,  psicld,thzold, 

/    FWCACC,AHr3C0HT 

/     UAC,VAC,WAC/JDOTAC,  '/DOT AC,  * DOT  AC,?, 


(ANG1) *ESTDOT 

TEEECT+CCS  fAGGl)  *SIJl  (AUG  2]  *PSIUOT 
*TH£DCT+Cu3  (  A5IG  1)  *CCS  (AN  32)  *PSIDOT 


***************** 

ES) 

COMPOTES 

THE 

AFT 

ax 

COORDINA' 
3HT    rfING, 

V7 

***************** 
PHIOLD 

v.  r  a 


Q ************* 

C    SU2B0JTIHE    A 

C 

C 

C 

C 

C ************* 
SC3R0UTI 
COSMOS  / 
1 3TZMP, 20 
COddON  / 
COMMON  / 

ccaaos  / 

AX-JDOTA 
AY=VDOTA 

AZ  =  «D0TA 

A=-/AC*R 

B=«AC*9 

C=UAC-"a 

D=-WAC*? 

E=-UAC*Q 

F=VAC*P 

RETURN 

END 


*************** 
CACC 

(AI3C3AFT 

A CC EL E 3  ATI 
SPACE    AND 

EBca  a  a suv 

cf    :ez   cla 
*************** 

NE    ACACC 

AEC2/    XNcS,DELX 

AEE3/    AX,AY,AZ 
'AEE5/    FMCACC.AH 
rAEF3/    DAC,VAC,i« 

iC-VAC«B  +  «AC*C 
IC+UAC*B-  i  AC*I- 
iC-UAC*C+ VAC«E 


******************************************* 


acce 

ONS 

THE 

zr  i:: 

3  SIC 
*  *  ** 

,XTE 


LE  SA 

R  E So 
ROTA 


TI0N5 
LTISG 

no;.A 

■  HAT    A 
i.  A 1 1 0  H 

i  *  *  *** 

'.OLD,': 


)     PUT 

FROM 

L    riCC 

PPEAE 

S     Cr 
*  **  ** 


s   :oge 

TRANS 

EL  ZE<i  T 
S    3  ELG 

HuTION 
****** 


Ln  TI 

IONS 

4     15 

FOR 

*  *  ** 


THE  LLYi 
ON  IHSGU 
RE3ULTI 
THE  LUS 
AM  A  IRC 
******** 


r..H  n 

Gfi 

NG 


******* 


•z:if,  yglo,2Ne: 


,  MCO 
AC, J 


NT 
DOTAi 


'DOT AC  ,5iD0TAC,; 


Q ******************* 

C    SUBROUTINE    ACLMTS 

C  A 

C  A 

C  F 

C  T 

C  E 

C  A 

C  I 

c  c 

Q ******************* 

subroutine  acl 
common  /aee3/ 
common  /aee4/ 
common   /aez5/ 
call  theust 
if    (an.lt.anma 

C  If (AN. 

RETURN 
END 


********************** 


CLM 
CCZ 
LIG 
EE 
CUA 
R£ 
N  M 
F  .1 
*  *  * 

MT3 
AX, 

TEM 
FWC 


13 

LEH 

ET- 

AI3 

TIC 

L  A  R 

AGN 

CTT 

*  ** 


(AIRCRAFT  IIM 
ATI ONS  RESULT 
?ATH  T3AJSCTG 
CRAFT.  THIS  I 
NS  OF  MOT  I  CM. 
G2H  THAN  ALLO 
ITUDE  UNTIL  T 
CN  ARE  EQUATE 
************* 


ITA 

i:.g 

RY_^ 
3  Z 
IF 
iiA3 
HE 
D. 
*** 


****************************** 

1ICNS)     COMPARES    THE 

FRCM     A    PROPOSED    MOVE     ALONG     A 
TO    THE    PHYSICAL    LIMITATIONS    CF 
SS 2  NT  I  ALLY    THE    RHS    OF    THE 

THE  TRAJECTORY  ACCELERATIONS 
LZ  IHEY  ARE  AjJUSTZD  DOWNWARD 
SHS     AND    LHS    OF    THE    EQUATIONS 

****************************** 


AY  ,AZ 

AX  ,  AHH  AX,CLMAX,GES,TO,  SHOSSL,  «'L  ,CDO  ,CDK,  ARSA,DTDH 

ACC,AN, MCO NT 


X  .  A  N  D  .  S WD  A  C  C.  LT  .  I H  M  AX) 
GT.  AN  MAX.  Oa.FiDACC.GT. 


CALL    500ST3 
THMAX)     CALL    REDUCR 
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C  ***************  *******:***a*****a«:s*********:****>»**!*************$***:** 
C    SUBROUTINE     BCCSTH 

ECC3TR     INCREASES    THE    LISEAH    ACCELERATIONS    UNTIL 

•    REACHED 

****************** 


C  ECC3TR     INCREASES    THE    LISEAH    ACCEL 

C  BAXI2UH    ALLOWABLE    tERFO&MANCE    IS 

C **  **** *****  **************************************** 

S!IfiPCHITTfJ7    SOOSTS 


10 


20 


30 


40 


50 


60 


70 


80 


SUBROUTINE    3COSIR 
COSMOS    /AEC2/     XNEb,CELX  , XTEMP  ,  XCLD,  YNE*  ,JELY  ,  YTEMP,  YGLD.ZNZ'J,  EELZ, 
1Z1EHP. 20IE 
COMBOS    /AEC4/    AG  1  ,AH  1,  A1 1  ,A  J  1  ,AJ2 
COMMON     /AEE1/     CDCT,VEOT,WDOI 
COMMON    /AEEJ/    AX,AY,AZ 

COMMON     /AEE4/     THM  AX  ,  A2»M  A  X  ,C  LM  AX  ,GEZ  ,  TO  ,  3HOS3  L,  -JL  ,  CDO  ,  C  DK  ,  A3  E  A  ,  DT  DH 
COMMON    /AEE5/     FWCACCAN,  MCONT 
MCONT=1 
CONTINUE 
1=0 

If     (AG  1.  EQ. DELX.OE. AG1. ZQ.0. )     GO    TO     20 

IF     (ABS  (AG1)  .LT.  AES  (AH1  )  .  AND.  AES  (AG1  )  .LT.  AdS  (All)  )      1=1 
IF     (I.  NE.  1)     GC    TO    20 
0DOT=1 .02*UDOT 
CONTIN  DE 

IF     (AH  1.  EQ.DELY.OF.AH1. ZQ-J.)     GO    TO     30 
IF     (AdS  (AH1)  .  LI.  AES  (AG1  )  .  AND.  AES  ( AH  1  )  .  LT.  AdS  ( A 1 1 ) 
IF     (I.  NE.2)     GC    TO    30 
VDOT=1 .0  2*VDOT 
CONTINUE 

IF     (AI  1.  EQ.DELZ. JH. All.  EC  .J.)     GO    TO     40 
IF     (A3  S  (AH)  .LT.  AES  (AG1  ).  AND.  AES  (AI1  )  -LT.  A 
IF     (I.  NE.  3)     30    TO    40 
«DOT=l .0  2* .DOT 
CONTIN  UE 
IF     (AG1.  EC.  JELX.3P.AG1.  SQ.O.)     GO    TO     50 


1=2 


(AH1)  )      1=3 


IF     (A3S  <AG1)  .EC  AES  (AI1  ) 
IF     (I.  Nc.4)     00    TO    50 
UDOT=1  .0  2*UDOT 


.J.)      GO     . 

AND.  AES  (AG!  )  .L' 


■COT=1 .  02*«DjT 
CONTINUE 


COMTIJI  UE 

IF     (AH  1  .E0-DELY.3B.AH1.  EQ.J.  )     GC    TO    50 
IF     (AdS  (AG1)  .  EC-  AES  (..H1)  .  AND.  AES  (AG1  )  .LT. 
IF     fT.  HE-51     C.G    10    60 


AdS  (AH1) )      1=4 


AdS  (AH 


IF     (I.  NZ.5)     GO 

UDCT=1 . 02*UDOT 

VDCT=1 .02*VDOT 

CONTINUE 

IF     (AH.  ECDELZ.OB.AI1.  EQ.O.)     GO    TO     70 

IF     (A3S  (AH1)  .EC  AES  (All  )  .  AND.  AES  ( AH  1  )  -LT.  A3S  (AG1)  )      I=b 

IF    (I.  HE. 3)     GO    TO    70 

VDOT=1  .  0  2*VDOT 

iCOT=1 .02**DOT 

CONTINUE 

CALL    SMLCAL 

CALL    THRUST 

IF     (AN.GE.ANMAX.Oe.FWDACC.GE.  THMAX)      GC    TO    30 

GC    TO     10 

CONTINUE 

IF     (AN.GT.AHtUX)     AN=AUMAX 

IF     (FUDACC.GT.THMAX)     FW D ACC  =  T  tJAX 

RETURN 

END 
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10 


Q  **  *  i  «  a  ***** 

C  SUBROUTINE 

c 
c 
c 

c** ********* 

SCEROU 

COMMON 

1WNEW. a 

ccaaoN 

common 
cosmos 

COMMON 
CCHMOJ1 
COMBOS 

MCCNT= 
COSITIH 

VELON= 

A=7SIA 

If     (Vt, 

ANG=AC 

AJ2=1. 

AG1=CO 

AH1=5I 

7ELGN= 

CCNTIJI 

IJ  =  G 

CALL    a 

CALL    A 

CALL 

CALL 

IF     (AN 

GO    TO 

CO NT  IN 

RETURN 

ENL* 


20 


30 


*******»*»*************************************.«*  ****?*■ 
RZC'JCR 

HEDUCfi    IS    CALL    PECK    ACLMTS     ANE    3ED0CES    THE    "NEW" 
VELOCITY    AND    ULTIMATELY     POSITION     TO      JET     LOADS 
ON    TEE    AIRCRAFT     SITHIN     LIMITS. 

**************  ^i  ***************************  *^i**  *******«« 

TINE    REEDC2 

/AEC3/     VELCN , 7ELOT , 7 ELCC , N , UN  ES, OTEflP , J  OLD , 7 N 2W ,VTEMP, 
TSaP.SOLE 

/AcC-a/     &G1,AH1,AI1,AJ1,AJ2 

/AED^/     VS  I  A  Li  ,  V i*l  A  a  ,V  MAX  1,  /MAX  2,  EELTEE,  DELT7,  GELTZ 

/AEE3/     AX,AY,AZ 

/kEEU/    IK MAX.  ANMAX  ,0 LM AX ,GEE , TO,  5HG53L,  »L,  CDO  ,CDK,  AB  El 

/AEE5/    FWEACC.AS.aCONT 

/LCC/     X1  ,  XI  ,  2  1  ,71  ,  IT  5, ITH2 
1 

UE 

7ELCN-DELIV 
LL*2.*QELT7 
LON.GZ. A)     GC    TC    20 
OS  (AG1/AJ2) 
l*AJ2 

S (AUG)  *Ao2 
N  (ANG)  *  AJi 
V1 
UE 


f7  r*  t   p 


,DTEH 


7ZLCS 

VDCTS 

MLCAL 

HP.  1ST 

•  L  ii«  A 

10 

UE 


NM  ftX.ANC.  EW'DACC.  LE.IHMAX)      Go    TO    30 


r v  *  *****  *  »  a  b  «« *  ***«**«* 


CALL) 


is   a  small  eh  ver3i 
:terative  lcops  of 


(^  *********  ****************** 

C  SC3ROUIINS  SMICAI 

C  (SMALL 

C  USED  I.. 

C********* ************* *************************** 

SUBROUTINE    SMLCAI 
CALL    DEL7EC 
CALL    TMPENT 
CALL    T  MPVEL 

I  NRTI.M 

ANGLES 

ROTRAT 

A  CT  5  M  1 
.  ACTRM2 
CJ»LL  ACT5M3 
CALL  ACR7EL 
CALL  ACACC 
RETURN 
ENC 


********************** 


ON    UF     ( 
(AIHCHA 

**  JC  a  3** 


BIG    CAL 
FT    LIMI 

a  **  »**  « 


I)      AND 

TATIOSS) 

*$*****» 


CALL 

CALL 
CALL 
CALL 
CALL 
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C  SUBROUTINE    THRUST 

C  THHUST     IS    USED     3?     (AIRCRAFT    LIMITATIONS)     TO    COMPUTE 

C  THE    AVAILABLE    FCBWAfiD    A CCEL IS  AT  10 N     BASED    UPON     THRUST 

C  CRAG,     G-LOADING,     POSITION     IN    SPACE     AND     GRAVITY. 

SUE300TINE    THRUST 

COMMON  /AEC2/  XNES,DELX, XT3HP  ,ICLD, Y SE5 , DELX , YT2HP, YOLD, Z N EW , EELZ, 
1ZTEMP,Z0LE 

COMMON  / AuC 3/  VELCN  ,  VELOT  ,VELCC,  N ,  J N  EM  ,  UTE21P,  UQLD,  VNE*  ,  VI  ESP ,  /OLD, 
1B»EW,WTEHF,K0L£ 

COMMON     /AED«/     J  SINEW  f THZ NEW , PHINEW,  P SIC LD, THEOLD, PHIOLD 

COMMON    /AEEJ/     AX,AY,AZ 

COMMON     /AESV     THMAX  , ANM A  X ,C LM AX  ,GZZ ,  TC,  Rh'OSSL,  WL,  CDO,CDK,  AREA,OTCH 

COMMON     /AEES/     EWEACC,AN,aCOST 

ANG-IHSNES 

THSQO=  AX/GEE 

AN^SQRT  JA'i**2«-AZ«*2)  /GEE 

SIGMA=  (1  ♦CTDH*ZTEMP/TO)  **4.  25  7 

RHCALT=RHCS5E* SIGMA 

CL=(2.»AN*WL)/(RHCALT*VZLCT**2) 

CEAG=AN*  (  (CD0+CEK*CL**2)  /CL) 

FWDACC=SIN(A..  G)+TI:SC.D-t-DRAG 

RETURN 

END 


C  *********************************»****************»:«  «  *****************  * 
C    SUBROUTINE    XCHN3E 

C  CNCE    TEE    EQUATIONS    0?    MOTION    ARE     SATISFIED    AT    THE 

C  PROPOSED    LOCATION     (TZ-i?)     TEE    TZMP    LOCATION    BECOMES 

C  TFE    CURRENT     LOCATION     (OLE). 

£****».*»**********-«***-,**********  **»»***** »^*******«********  »*»««-<3*»**l 

SUEROUTINE    XCENC-E 

COMMON  /ASC2/  XNEW,DZLa,  XTEME  ,  XCLD,  Y  NEW  , DELY,  YTZMP,  YCL  C,  Z  N  EW  ,  DZLZ, 
1ZTEMP, ZOLC 

COMMON  /ABC3/  7ELCN  ,  VELOT  ,V  ELCC  ,  N  ,  UN  ZW  ,  UT  ZM?  ,  U  OLD,  V  N  EW  ,  VT  SMP,  VOLE, 
1HNE»»WTEKP,S0LI 

COMMON     /AEDU/     P  SI  NEW  ,TH  E  N  EW  .  ?  HI  NEW  ,  PSICLD,  THEOLD,  PHICLD 

COMMON     /AED5/     AC  1  ,AE  1,AF1  ,Ar 2 

XOLD=XTEMP 

YCLi>YTZMP 

ZOLD=ZTEMP 

UOLD=UTEMP 

VOLD=VTEMP 

WCLD=WTZMP 

PSIOLD=?SINSW 

THEOLD-THINZW 

PHICLD=?HINEW 

VELOO= VELCT 

RETURN 

END 
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C    SUBROUTINE     WAYPNT 

C  TEE    RELEVANT    PARAMETERS     FOB    THE    CURRENT    POINT    ARE 

C  ASSIGNED. 

SUBROUTINE    WAYINT 

COM  HON     /  AEC1/     WX  (  10  0  C)  ,  W  Y  ( 1  0  3  G)  ,  WZ  (  1  GOG)  ,  W  U  (  1  0  00)   ,  WV(1000)   ,  WW  (1000 
1)  ,  «H(1  000)  ,WP  (1GOC)   , WR( 1 000)  ,  WGMOOO  )  ,  T  (10  JO)  ,  ICT 


COMMON 


AEC2/     XN 


0  0)  , WR( 1 000)  ,  w 
E>,DZLX,XTZ;-1P, 


XCLD,Y  NEW, DELI, XT3MP, TOLD, ZN EW , CELZ, 
1  ZT  "IP,  Z  U  i.  L 

COMMON  /AEC3/  VELCN  ,VELOT  ,'v'ZLCC,  N,aMEW,aTEH?,UOLD,VNE«  ,  7TSMP,  VOLD, 
1WNEW, WTEME,WOLC 

COMMON     /AED2/     VSTALL  , '/MAX  .7MAX1  ,7MAX  2  ,  GELT SZ, DELT7,  DELTAZ 

COMMON    /AED4/     ES  IN EH, THEN  cui  ,  PKI3SW,  PSIOLD , IHEOLD , ?H IOLD 

COMMON    /AEE5/    FSE  ACC  ,A.N' ,  MCO  NT 

WX  (ICT) =  XCLD 

BY  (ICT)  =  YCL3 

WZ  (ICT)  =ZCi.J 

iO (ICT) =0CLD 

WV  (ICT)  =  VCLD 

38  (ICT)  =WCLD 

WH  (ICT)  =-FSINEW 

SP  (ICT)  =IHENEW 

WH  (ICT)  =-PHINEW 

WG  (ICT)  =AN 

T  (ICT)  =T  (ICT-  1)  +DELTEZ 

RETURN 

END 


C    SG8RCUTINE    FILE 

C  THE    CURRENT     POINT    IS    IHMEEIATILY    SAVED. 

SUBROUTINE    FILE 

■  <t WV(1000)   ,NH  (1000 

X0LD,ZNEW,D3LZ, 


!*»»»***»»**»»* 


10 


20 


SUBROUTINE    FILE 

COMMON    /AECV     WX  (  1000)  ,  WY  (100C)  ,WZ(1  COG)  ,  nUMOOO)   ,W 
1)  ,  WH  (1  00  C)  ,  W?  (  1000)  , W3( 10o0)   ,  KG  MOJO)  ,T  (IOCiJ)  ,ICT 

COMMON     /AEC2/    XN E W , 0 Z1X , XTE MP  ,  XCLD , 7  NEW , DELY , YT EMP, 
1ZTEMP, ZOLC 

COMMON     /LCC/     i1  ,  Y1  ,21  ,71  ,  IT  B,  LT52 

IF     (XOLE. NE. XNEW. CR. YOLO. HE. Y NZ W . OR. ZOLD. HE. ZN 

WRITS      (11,20)      I (ICT)   .  WX  (ICT)  ,  «Y(ICT)    .WZ  (ICT)  ,  * 
IT)  ,  Wa  (ICT)  ,  W?  (ICT)  ,  WR  (ICT J  ,  WG  |ICT)  ,  LTR 

RETURN 


..  EW)     GO    TO    10 

WU  (ICT)  ,  W7  (ICT)  ,  WW  (TC 


RETURN 
CONTIN  UE 


LTR=0 

WRITE     (1  1  ,20)      1  (ICT)  ,WX  (ICT)  ,  WY  (ICT)   .WZ  (ICT)  ,WU  (ICT)  ,W7(ICT)  ,  WW  ( IC 
1T)  ,WH (ICT)  ,WP  (ICT)  ,  WR  (ICT)  ,  WG  (ICT)  ,  LIE 
RETURN 


RETURN 

FORMAT      ( 1  1  (S10.4,  IX)  ,13) 

END 
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C    SICCK    DATA 

C  ***    CAUTION     **    T3IS    SLOCK    CAT  A    IS     AN    ABBREVIATED 

C  7EBSIGN.    --    D.  A.H.    —    16MA884 

BLOCK    DATA 

COMMON    /LCC/     X1  ,11  ,  21  ,V1  ,  ITE,  ITB2 

COMMON    /MH1/    MINX, MA XX, MINI , MAXY,MIN X1,MAXX1 ,MINX2 , MAXX2 

COMMON    /MN/    IBAUD 

COMMON    /PAH  2/    XGUN  (7)  ,YGTJN(7)  ,200:1(7)  ,  XSAM  ,TSAM  ,  ZSA  M  ,33  (7) 

COSMOS    /FaHtt/    APE  MA i  ,HTMI»,  HT2AX,  POP  HIM  ,  EAALT,  bRMIN  ,  E-RMAX  ,  BRRMIN  ,3 
1  REM  AX,  31  E,  AHTI 

COMMON     /ABC!/     WX  (100  0)  ,  WY  (1  0  0  0  )  ,  H  2  ( 1  000  )  ,  H  U  (  10  00  )  ,  WV  (1000)  ,  WW  (1000 
1)  ,HH(  1000)  ,»P  (10OC)  ,WR (1030)  ,WGf  1000)  ,1  (1000)  ,ICT 

COMMON    /ABC2/    XNEfi  ,DELX  ,  XTEMP  ,  XCLD,  I  NEW ,  DEL*  f  YTEMP,  XOLD  , ZNEW  ,DELZ, 
1ZIE3P, ZOLD 

COMMON    /ASC3/     V ELCN , VELOT ,7 ELCC , N , UN  EW , UTEHP , OOLD , VNEN ,VT2MF,7CLD, 
1  WNEW.  WTEMF.WOIE 

COMMON    /AED1/    AA1,AE1,AC1 

COMMON    /AED2/     VSTALI,VMAX,VMAX1,VMAX2,£ELTES,DELTY,  DELTAZ 

COMMON    /AECJ/    E S  I  COT ,TH S DOT , ? HIDOT 

COMMON     /A3D4/    FSINEH  .THEN  EW  ,  PHINEW,  PSI0I0rTH20LD,  P.4IOLD 

COMMON    /ACD5/     AC  1  ,  A E  1 , A F 1 , AF 2 

COMMON    /AEE4/    THMAX  ,  ANM AX  ,CLK 8X,GEE, TO, SHCSSL, WL.CDO, CDK, AR EA, DTEH 

COMMON    /TAP./    TAJBGX,TARGY 
c 

C    FLASH    CRI7ER 

c 

DATA    IBAUC/V 
C 

C    MAC-    WINDOW    X    COORDINATES 

C 

DATA    MINX/ 10  0/ 
DAIA    MAXX/3700/ 

C    ALIIME12E     8INEOW     X    CCCBDINATSS 

DAIA    MINX1/3725/ 

DATA    MAXX  1/3925/ 

C 

C  EECHETING  HI  SCOW  X  COORDINATES 

c 

DATA    MINX2/395C/ 
DAIA    MAXX2/4000/ 
C , 

C    COMMON    Y    COOBDINATIS     EOS    TH Z    IH3EE    WINDOWS 

C 

DATA    MINY/400/ 

DATA    MAXY/23J0/ 

C 

C    PEEDETESMINEE    WEAPON     EMPLACEMENT    PARAMETERS 

C 

DATA    XGUN/14800.,  16  2  CO.  ,  1  3600. , 13400 ., 1 1300.  . 1 56 00.  ,12  300./ 

DAIA    Y  GUN/ 9u  00. ,3200., 720  C.  ,3000.  ,37  GO.  ,10 90  0., 75 00./ 

DATA    Z GUN/40.  , 40. , 20. ,20. ,50. ,90. ,20 ./ 

DAIA    X SAM/12  00 C./.  ISAM/6  000. /.2SAM/5 0-/ 

DATA    GB/1000.  ,  1000.,  140 0.  ,14  CO., 2500., 2500. ,2500./ 
c 

C    TABGET    COORDINATES 

C 

DATA    T  ARGX/1 4  000./, T AEG  1/722  0 ./ 
c 

C    CONVERSION    FACTOBS:    3ADIANS    TO    DEGREES 

C  METSES       TO    FEEI 

C 

DAIA    2TD/57. 29573/ 
DATA    AMTf/3. 28C84/ 

C    GEAVITATIONAL    CONSTANT     (M/S2) 

C 

DATA    GEE/9.307/ 
c 

C    SIffOLATION     PABAMETEES 

C 

C    CABDINAL    COMPASS     HEADINGS     (RADIANS) 


193 


OAT  A    AA1/1.57C79b/,A21/J.  14  1  5  9  5/ ,  AC  1 /4.  71  24/ 


C    PITCH    BOLL    ANE    YAW    PAEAHET2BS 

C 

DATA    AD1/.5236/,A£1/.05  24/, AF1/.6503/,AF2/2.09  44/ 


C    MAXIMUM    THRUST    OS    TEE    AIRCRAFT     (DIXEifSIOtfLESS) 
c 

DATA    TaHAX/O.  4  0/ 


C    MAXIMUM    AIECHAFT    GEE-LCAEING     [D IHIKSIOHL  ESS) 
c 

DATA    ANMAX/6./ 


C    RHCSSL    IS    THE    DENSITY    AT    3TANEAED    SEA-LEVEL    CONDITIONS.     IT    HAS 
C    DIMENSIONS    OF     (II.32/M4) 


EATA    3HOSSL/1  -  225/ 


C 

C    STANDARD    SEA-LEVEL    TEMPERATURE     (DEGRESS     K) 


DATA    ^0/288. 16/ 


C    TEMEE5ATURS    LAPSE     FATE    FCR    THE    TROPOSPHERE     (DEG    K/M) 


DATA    0TDE/-O. 5E-3/ 


C    MAXIMUM    3ISG    LOADING     (N/22) 


DATA    ..'L/4788./ 


C    SPEED    EHAKE    AREA:     CIE1NEE    AS     A    PERCENTAGE    OF    TOTAL 


nsG 


DATA    A3  £  A/. 05/ 


LIFT 


ATT  ACX 


C    MAXIMUM    COEFFICIENT 

c 

DATA    CL3AX/1./ 
c 

C    COEFFICIENT    CF    DRAG    AT    2 EHO     ANGLi 

c 

DATA    CCO/.015/ 
c _ 

C    PECFILE    DRAG    COSFEICIENT 

C 

DATA    CDK/0. 1/ 

C 

C  MINIMUM  ALTITUDE  FCR  TEE  GAME  (M) 

c 

DATA    HTMIN/60./ 
c 

C    MAXIMUM    ALTITUDE    A  P  f  ECAC  EIII  G     IHE    TARGET     (M) 

c 

DATA    APPMAX/457./ 

C 

C    MAXIMUM    ALTITUDE    AETE3    ENTERING    PCF-U?    RANGE    OF    6    XM.(M) 

C 

DATA    HTH AX/2 050-/ 
C 

C    MAXIMUM    VELOCITIES     EEFORE    AND    AFTER    3CM  3    RELEASE  (M/S) 

C 

DATA    V  MAX  1/26  0./,  V  MAX  2/ 3  10-/ 

C    STALL    VELOCITY     (M/S) 

c 

DATA    7STALL/90-/ 
C 

C    MAXIMUC    RANGE     (METERS)_A    POP-OP    MAY    3E    COMMENCED 

DATA    PCPKIN/6000./ 
C 

C    THE    FCLLOSING    ARE    TEMPORARY     PARAMETERS    FOR    THE     INITIAL    CONDITIONS 

C    THE    AIRCRAFT.    LAIER    THIS     *ILL    3E     ENTERED     INTERACTIVELY. 

C 

DATA    «X/0./,  * Y/oCC0./,SZ/20  0./,WU/2  0Q./,WV/0./,  WS/O./ 
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DATA    W  H/1.570  3/, *F/C. /,  *'  S  /O  .  /  ,  «G/G.  /  ,  1/  Q.  / 
c 

C    OC2EMENT    0?    VELOCITY    CHANGE     (5     KNCT    INC    CONVERTED    10    M/S) 

C 

DATA    DELIV/3./ 
c 

C    IKCSiaEOT    OF    TIME    C E ANG Z  (S2C0 NDS) 

C 

DATA    DELTZE/1. CO/ 
c 

C    INCBE3ENT    OF    ALTITULE    CHANGS (50     FI    INC    C0NVE3.T2D    TO    M£I£3S) 

c 

DATA    DELTAZ/15.2U/ 
c 

C    TZ3ECEA5Y     PHCGH&8     INITIALISATION 

c  last    data    list?   simulates   ianut   frcai   tha    graphics    buffer    through 

c   the    ifaaiDiu    sutrou^;r.is   xyot'ar.a    zvct. 

C — 

CAT A    XOLC/0./,YOLn/6C0Q./,ZOLC/2J0./ 
DAI  A    aOLE/'iOO./jYCLD/O./,  WOLD/0-/ 

DATA    FSICLO/0./,TfcEOLD/0./, PHICLD/O. / 

DATA    VELCC/200./ 

DATA    X  1/60 00. /,  Y1/3C CO.  /,Z1/3CC./, 71/260./ 

END 
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